[飛鳥]

這....要寫小程式呢

用perl就可以作到了
執行perl程式前先安裝ActivePerl

然後把下面程式碼複製到記事本，存檔並把副檔名改名為.pl，並點兩下即可

第一個功能
perl程式碼

#!/usr/local/bin/perl -w

print "請輸入來源檔名：(例如C:\\abc.txt)\n";
my $FileSource=<>;
print "請輸入要另存的檔名：(例如C:\\abc_out.txt)\n";
my $ExprotFile=<>; #請輸入要另存的檔名

open(TXT, "$FileSource") || die "無法讀取 $FileSource 檔! 請查明原因!\n";
open(ETXT, "> $ExprotFile") || die "無法讀取 $FileSource 檔! 請查明原因!\n";

while (my $read=<TXT>){
chomp $read;
if($read =~ /\./){
print "$read 有\. 不是想要的\n";
}else{
print ETXT "$read\n";
}
}
close(ETXT);
close(TXT);

第二個功能
perl程式碼

#!/usr/local/bin/perl -w

print "請輸入來源檔名：(例如C:\\abc.txt)\n";
my $FileSource=<>;
print "請輸入要另存的檔名：(例如C:\\abc_out.txt)\n";
my $ExprotFile=<>; #請輸入要另存的檔名

open(TXT, "$FileSource") || die "無法讀取 $FileSource 檔! 請查明原因!\n";
open(ETXT, "> $ExprotFile") || die "無法讀取 $FileSource 檔! 請查明原因!\n";

while (my $read=<TXT>){
chomp $read;
$st_len=length($read);
if($st_len <= 5){
print "$read 不是想要的\n";
}else{
print ETXT "$read\n";
}
}
close(ETXT);
close(TXT);