Search Results

Use the POSIX module then. Unless your application is from the Dark Ages, you should be fine -


$
$
$ cat -n iterate1.pl
1 #!perl -w
2 use POSIX;
3 ($y1, $m1, $d1) =...

The DateTime core module makes this very simple and elegant -


$
$
$ cat -n iterate.pl
1 #!perl -w
2 use DateTime;
3 ($y1, $m1, $d1) = unpack("A4A2A2",$ARGV[0]);
4 ...

Your own code could be corrected as
echo 2.3M asdsad | nawk '{ if (substr($1,length($1)) == "M" ) print $1 FS $2}'
And do not need to specify the blank-space as field separator (nawk -F " ") as it...

Something like this,

awk '/M/' inputfile

nawk '$1 ~ /M$/' myFile