一.输出到文件的Demo
#!F:/Program Files/Perl/bin/perl
use strict;
open(MYFILE,">>hhh.txt");
while(<STDIN>)
{
$|=1;
select MYFILE;
$|=1;
print MYFILE $_;
$|=1;
select STDOUT;
print $_ ;
}
close(MYFILE);
二.文件读入
# F:/Program Files/Perl/bin/perl
open FH,"hhh.txt" or die $!;
@array = <FH>;
close FH;
print @array;
三处理文件名并提取子串Demo
# F:/Program Files/Perl/bin/perl -w
use strict;
my $OUTFILE_file_name = "result.txt"; # output file name
open my $OUTFILE, '>>:raw', $OUTFILE_file_name
or die "$0 : failed to open output file '$OUTFILE_file_name' : $!/n";
foreach my $INFILE_file_name (glob "dictionary.php_l1=English*.html"){
my $begin = index($INFILE_file_name,"&word=") + 6;
my $end = index($INFILE_file_name,"&Search");
# print $begin,"/n";
# print $end,"/n";
print $OUTFILE substr($INFILE_file_name, $begin, $end - $begin);
print $OUTFILE "/t";
# print $INFILE_file_name,"/n";
}
close $OUTFILE or warn "$0 : failed to close output file '$OUTFILE_file_name' : $!/n";
四合并处理相同
# F:/Program Files/Perl/bin/perl -w
use strict;
use warnings;
use Encode;
use Data::Dumper;
use HTML::TreeBuilder;
my $OUTFILE_file_name = "result.txt"; # output file name
open my $OUTFILE, '>>:raw', $OUTFILE_file_name
or die "$0 : failed to open output file '$OUTFILE_file_name' : $!/n";
my @list = Encode->encodings(":all");
foreach my $INFILE_file_name (glob "dictionary.php_l1=English*.html"){
open my $INFILE, '<:raw:encoding(utf16)', $INFILE_file_name
or die "$0 : failed to open input file '$INFILE_file_name' : $!/n";
my $fileContents = ();
my $i = 1;
while(<$INFILE>){
my $tree = new HTML::TreeBuilder;
$tree->parse($_);
foreach my $row ( $tree->find_by_tag_name("tr")) {
foreach my $cell ($row->content_list) {
if($i==16)
{
#####处理
$fileContents = $fileContents.$cell->as_text;
}
$i++;
}
}
}
print $OUTFILE encode("utf16",$fileContents);
close $INFILE or warn "$0 : failed to close input file '$INFILE_file_name' : $!/n";
}
close $OUTFILE or warn "$0 : failed to close output file '$OUTFILE_file_name' : $!/n";