PODTECH Blog | Insights on Custom Software & Cloud Solutions

UNIX

RedHat vs Ubuntu – Useful Package Commands

RedHat vs Ubuntu – Useful Package Commands Task Red Hat/Fedora Ubuntu Refresh list of available packages Yum refreshes each time it’s used apt-get update Install a package from a repository yum install package_name apt-get install package_name Install a package file yum install package.rpm rpm -i package.rpm dpkg –install package.deb Remove a package rpm -e package_name […]

PHP

Given a size in KB, try to return a more readable MB, GB or TB answer string

Given a size in KB, try to return a more readable MB, GB or TB answer string function readable_size_for_kb($mykb) { if ( $mykb > 1073741824 ) { return sprintf("%5.1f TB",$mykb / 1024 / 1024/1024); } elseif ( $mykb > 1048576 ) { return sprintf("%5.1f GB",$mykb / 1024 / 1024); } elseif ( $mykb > 1024 […]

PHP

Readable Time – PHP, given a unix timestamp, return a readable time

Readable Time – PHP, given a UNIX timestamp, return a readable time # Given a unix timestamp, returns in readable time ie "1 day, 7 hours, 23 minutes, 2 seconds" function readable_time($timestamp, $num_times = 2) { //this returns human readable time when it was uploaded (array in seconds) $times = array(31536000 => 'year', 2592000 => […]

Perl, UNIX

Add a timestamp to every STDOUT line

Add a timestamp to every STDOUT line I found this useful for debugging and just handy to have in the toolbox. Alias within your profile! Use: ./anyscript_you_choose | ./addtime [perl] #!/bin/perl -w # filename: ./addtime my($old)=select(STDOUT); $|=1; select(STDIN); $|=1; select ($old); while(<>) { my($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)= localtime (time); printf “%02d:%02d:%4d %02d:%02d:%02d %s”,$mday,$mon+1,$year+1900,$hour,$min,$sec,$_; } [/perl]

Perl, UNIX

Perl – Get the md5 hash for a file

Perl – Get the md5 hash for a file Get the MD5 hash for a file on the command line, using Digest::MD5 usage: ./md5sum.pl [filename] [-f] -f do not display filename [perl] use warnings; use strict; use Digest::MD5; sub md5sum { my $file = shift; my $digest = “”; eval{ open(FILE, $file) or die “Can’t […]

Perl

Server Port Check – Net::Telnet, check remote mail server is up and online

Server Port Check – Net::Telnet, check remote mail server is up and online This is pretty useful for checking that a server is accepting requests on a specific port. In this case, i am checking port 25, but can be used for others. ./smtp_check.pl <host> <host> <host> [perl] use Data::Dumper; use Net::SMTP; my @all_emails = […]

Blogs

RedHat vs Ubuntu – Useful Package Commands

Given a size in KB, try to return a more readable MB, GB or TB answer string

Readable Time – PHP, given a unix timestamp, return a readable time

Add a timestamp to every STDOUT line

Perl – Get the md5 hash for a file

Server Port Check – Net::Telnet, check remote mail server is up and online

Recent Posts

Company Information

Our Services

Expertise

Main Headquarter

Other Offices