Oh Happy Life

#!/usr/local/bin/perl -w use strict; local *FH1; local *FH2; my $source; my $target; foreach $source (@ARGV) { $target = "converted_" . $source; open(FH1, " open(FH2, ">", $target) || die "Create $target was failed.\n"; while ( ) { $_ =~ s/^,[^"]*(?=\n)$/$&"/; print(FH2 $_); } close(FH1) || die "Close $source was failed.\n"; close(FH2) || die "Close $target was failed.\n"; } exit 0;

Get System Info in Windows Env by Perl #!/usr/bin/perl use strict; use warnings; use Win32::SystemInfo; my %phash; Win32::SystemInfo::ProcessorInfo(%phash); for (my $i = 0; $i print "Speed of processor $i: " . $phash{"Processor$i"}{MHZ} . "MHz\n"; } my %mHash; Win32::SystemInfo::MemoryStatus(%mHash,"KB"); print "MemLoad : " . $mHash{MemLoad} . " %\n"; print "AvailPhys : " . $mHash{AvailPhys} . " Kbytes\n"; print "TotalPage : " . $mHash{TotalPage} . " Kbytes\n"; print "AvailPage : " . $mHash{TotalPage} . " Kbytes\n"; print "TotalVirtual : " . $mHash{TotalVirtual} . " Kbytes\n"; print "AvailVirtual : " . $mHash{AvailVirtual} . " Kbytes\n"; 결과는 C:\Documents and Settings\johlim>perl a.pl Speed of processor 0: 1697MHz MemLoad : 54 % AvailPhys : 481080 Kbytes TotalPage : 2521020 Kbytes AvailPage : 2521020 Kbytes TotalVirtual : 2097...