Вход на сайт
Perl
601 просмотров
Перейти к просмотру всей ветки
в ответ паскуда 06.04.11 17:51
#!/usr/bin/perl
my $dname= 'X.txt';my $dnam='';my $data='';my $i=1;my $j=1;open(MM,"<$dname");
while(<MM>){if ($i==1) {$dnam="X$j.txt";open(NN,">$dnam");}$data=$_;
if (length($data)<22){$i=1;$j++;close(NN)}else{print NN "$data";$i++;}}close(MM);