usr/bin/perl;
by Mumu
use strict;
use warnings;
chdir "/Users/mumu/Documents/programming/scifi/Round12_Barcode";
open (my !";
open (my !";
my line=<line;
chomp line =~s/(\W+)//g;
#next if $line !~/\w/;
$i++;
print $out "index", $i, "\t", $line, "\n";
}
网友评论