[problem]
You have some way cool awk or sed scripts, but you want to use Perl.
[/problem]
[solution]
Easy. Perl comes with some excellent binaries, which will convert AWK or SED scripts to Perl. Excellent tool for learning Perl too!! 🙂
[/solution]
[example]
To convert from AWK to Perl:
a2p awkscript
To convert from Sed to Perl:
s2p awkscript
$ date | awk ' { print $(NF-1) } '
WST
$ cat > awkscript
{ print $(NF-1) }
$ date | awk -f awkscript
WST
$ a2p awkscript
#!/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
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$ = "n"; # set output record separator
while () {
chomp; # strip record separator
@Fld = split(' ', $_, 9999);
print $Fld[$#Fld - 1];
}
$ a2p awkscript > perlscript
$ date | ./perlscript
WST
[/example]
[reference]
[tags]Perl, awk, sed, Perl Coding School[/tags]
[/reference]
If you have found my website useful, please consider buying me a coffee below 😉