usr bin perl use warnings use strict open my in logins txt or die chom

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
#!/usr/bin/perl
use warnings;
use strict;
open my $in, '<', 'c:\logins.txt' or die $!;
chomp (my @logins = <$in>);
close $in;
open my $out, '>>', 'out.txt' or die $!;
foreach my $login (@logins) {
syswrite $out, "http://$login.narod.ru\n"
}
close $out