随笔分类 -  Perl

摘要：创建新目录$dir = 'C:\test1';mkdir $dir,0777 or warn "error: $!";重命名目录移动目录my $source_dir = 'C:\test2';my $destination_dir = 'C:\test1';system("move $source_dir $destination_dir");删除目录# 删除的目录必须是空目录$dir = 'C:\test1';rmdir($dir) or warn "error: $!" 阅读全文

摘要：Perl实现HTML2TXT中文转换use HTML::TreeBuilder;use HTML::FormatText; open OUTPUT,">output.txt";$file = "C:/test.html";$tree = HTML::TreeBuilder->new->parse_file("$file"); $formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);print OUTPUT $fo 阅读全文