Имеется
#!/usr/bin/perl
$i=200;
open(ip, "</usr/local/1");
while($name=<ip>)
        {
        $i++;
$rrr="ipfw add $i deny ip from any to $name via rl0\n";
print "$rrr";
};

при выводе результата сносит строку
ipfw add 201 deny ip from any to 192.168.1.2
via rl0
ipfw add 202 deny ip from any to 192.168.1.3
via rl0
...... и т д

нужно чтобы было

ipfw add 201 deny ip from any to 192.168.1.2 via rl0
ipfw add 202 deny ip from any to 192.168.1.3 via rl0
..... и т д

подскажите пожалуйста с помощью чего это можно реализовать.

• perl возврат строки,gibbon, 19:00 , 08-Май-07
• perl возврат строки,creapt, 15:00 , 12-Май-07

>Имеется
>#!/usr/bin/perl
>$i=200;
>open(ip, "</usr/local/1");
>while($name=<ip>)
>        {
         chop $name;
>        $i++;
>$rrr="ipfw add $i deny ip from any to $name via rl0\n";
>print "$rrr";
>};
>
>при выводе результата сносит строку
>ipfw add 201 deny ip from any to 192.168.1.2
> via rl0
>ipfw add 202 deny ip from any to 192.168.1.3
> via rl0
>...... и т д

спасибо