Sars' History perl

perl:document

Wed, 13 May 2009 20:27:02 +0800

Perl

perl:rename

Sun, 29 Jul 2007 21:09:54 +0800

批次修改檔名將檔案名末端的 .ptt.htm 改成 .ppt foreach my $file (glob "*.ppt.htm") { my $newfile = $file; $newfile =~ s/\.htm//; if (-e $newfile) { warn "wrong!!!\n"; } elsif (rename $file, $newfile) { } else { warn "failed!!!\n"; } }

perl:yahoo_dictionary

Sun, 15 Apr 2007 02:41:26 +0800

yahoo 字典參考： Perl 版本 #!/usr/bin/perl # Yen-Ming Lee # 2007/01/09 use Encode qw(encode decode from_to); use Term::ANSIColor qw(:constants); use Data::Dumper; use LWP::Simple; use strict; ydict(shift); sub ydict { my $p = shift; die if !$p; my $html = get("http://tw.dictionary.yahoo.com/search?p=$p"); from_to($html, "utf-8", "big5") if $ENV{'LC_CTYPE'} =~ /Big5/; my $i = 0; $html =~ s/\r…