while (<>) {
($Fld1,$Fld2) = split(/[:\n]/, $_, 9999);
print $Fld2;
}
while (<>) {
chomp;
s/foo/bar/g;
print if $printit;
}
When invoked as psed, it behaves as a sed implementation, written in Perl.
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
$uid == $uid{'root'}) &&
(($mode & 0777) == 04000);
print("$name\n");
}
As well as these filters for converting other languages, the pl2pm utility will help you convert old-style Perl 4 libraries to new-style Perl5 modules.
xsubpp will compile XS code into C code by embedding the constructs necessary to let C functions manipulate Perl values and creates the glue necessary to let Perl access those functions.
perl -MCPAN -e shell