perl與指令行

在linux中運作指令行

perl -e 'print "Hello world\n"'

MS-DOS中運作指令行

perl -e "print qq(Hello world\n)"

直接調用shell并輸出

#!/usr/bin/perl -w

my $now=`date`;

print "The time is now $now";

foreach (`who`) {

  my($user,$tty,$date=/(\S+)\s+(\S+)\s+(.*)/;

  $ttys{$user}   .="$tty at $date\n"

}