DEVTOME.COM HOSTING COSTS HAVE BEGUN TO EXCEED 115$ MONTHLY. THE ADMINISTRATION IS NO LONGER ABLE TO HANDLE THE COST WITHOUT ASSISTANCE DUE TO THE RISING COST. THIS HAS BEEN OCCURRING FOR ALMOST A YEAR, BUT WE HAVE BEEN HANDLING IT FROM OUR OWN POCKETS. HOWEVER, WITH LITERALLY NO DONATIONS FOR THE PAST 2+ YEARS IT HAS DEPLETED THE BUDGET IN SHORT ORDER WITH THE INCREASE IN ACTIVITY ON THE SITE IN THE PAST 6 MONTHS. OUR CPU USAGE HAS BECOME TOO HIGH TO REMAIN ON A REASONABLE COSTING PLAN THAT WE COULD MAINTAIN. IF YOU WOULD LIKE TO SUPPORT THE DEVTOME PROJECT AND KEEP THE SITE UP/ALIVE PLEASE DONATE (EVEN IF ITS A SATOSHI) TO OUR DEVCOIN 1M4PCuMXvpWX6LHPkBEf3LJ2z1boZv4EQa OR OUR BTC WALLET 16eqEcqfw4zHUh2znvMcmRzGVwCn7CJLxR TO ALLOW US TO AFFORD THE HOSTING.

THE DEVCOIN AND DEVTOME PROJECTS ARE BOTH VERY IMPORTANT TO THE COMMUNITY. PLEASE CONTRIBUTE TO ITS FURTHER SUCCESS FOR ANOTHER 5 OR MORE YEARS!

Table of Contents

a2p

Hayek's Linux Manual

(Awk to Perl translator)

Description

a2p takes awk scripts as input and produces a perl script

Useful Flags

NA

Examples

 [hayek@localhost tmp]$ cat awk.awk 
 {print $1} file
 
 [hayek@localhost tmp]$ a2p awk.awk 
 #!/usr/bin/perl
 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
   if $running_under_some_shell;
 # this emulates #! processing on NIH machines.
 # (remove #! line above if indigestible)
 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
 # process any FOO=bar switches
 $, = ' ';		# set output field separator
 $\ = "\n";		# set output record separator
 
 while (<>) {
   chomp;	# strip record separator
   @Fld = split(' ', $_, -1);
   print $Fld[(1)-1];
   print $_ if $file;
 }


QR Code
QR Code a2p_hayek.0 (generated for current page)
 

Advertise with Anonymous Ads