IO

背景:

    没什么好说的,这是基本功.

 

正文:

 

#STDIN

print "Please tell me who are you:";
my $name = <STDIN>;
chomp($name);
print "Welcom ".$name." Sir";
print "\n";
#File system

(-e 'netstat.txt') || die("File is not exsit");
(-e 'Log.txt') || die("File is not exsit");
open(FILE, 'netstat.txt') || die("Error");
open(LOGFILE, '>Log.txt') || die("Error");
my $line = undef;
while($line = <FILE>){
  print LOGFILE $line;
}
close(FILE);
close(LOGFILE);

够明确吧?应该有帮助.