正则表达式什么意思啊
open(ALLTASK , $all_task) or die "Error: Can not open allTask file!\n"; while( <ALLTASK> ) { my $tmpline = $_; my $alltask_dirname = $all_task; $alltask_dirname =~ s#/[^/]+/?$##; chomp($tmpline); #chomp($alltask_dirname); if (/^#/) { next; } unless (/^\//) { $tmpline = "$alltask_dirname/$tmpline"; } }