у меня есть base.txt вида mail;pass и вот мне надо все mail вытащить в отдельный *.txt
У кого есть какйнить проги иль perl скрипт ? прос по зарез нужно!!!
#!/usr/bin/perl
use strict;
use warnings;
#use diagnostics;
die 'Usage: ', $0, ' [input-file output-file]', "\n" unless scalar @ARGV == 2;
open my $INFILE, '<', $ARGV[0] or die "open error: $!\n";
open my $OUTFILE, '>', $ARGV[1] or die "create error: $!\n";
print $OUTFILE (split /;/, $_)[0], "\n" while (<$INFILE>);
close $OUTFILE;
close $INFILE;
exit 0;
mail;pass
Комбинированный вид
