بسم الله الرحمن الرحيم
تستخدم اﻷداة a2p لتحويل برامج لغة AWK ألى perl في نظام لينكس كما في هذا المثال على برامج AWK :
#!/usr/bin/awk -f
BEGIN { print "Hello,World!" }
BEGIN { print "Hello,World!" }
و لتحويل البرنامج أستخدم هذا الأمر :
a2p hello.awk > hello.pl
النص البرمجي للبرنامج باللغة perl :
#!/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
print 'Welcome to awk';
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
print 'Welcome to awk';
