OpenForum RSS: perl ��

perl �� (XAnder)

Mon, 26 Nov 2012 07:52:25 GMT

>[�� ]
>> s/.*\.//; push @last, $_;} $,="\n"; print "= ips =", @ips, "=
>> last =", @last, "";'
>> = ips =
>> 192.168.100.120
>> 172.31.25.12
>> = last =
>> 120
>> 12
>> $ _[/code]
> �� ! ��

�� , �� rindex, substr � �� print "@ip_addr\n" - �� . �� , ��.

�� :

[code]my @ip_addr = $_;[/code]

�� , ��, �� . �� (!) ��. �� -�� :

[code]print "@ip_addr\n" ;[/code]

�� . �� , � �� . ��, �� , � �� . �� , � ��

perl �� (merfi)

Mon, 26 Nov 2012 06:09:09 GMT

>[�� ]
> $ cat ips | perl -e 'while (<>) {chomp; push @ips, $_;
> s/.*\.//; push @last, $_;} $,="\n"; print "= ips =", @ips, "=
> last =", @last, "";'
> = ips =
> 192.168.100.120
> 172.31.25.12
> = last =
> 120
> 12
> $ _[/code]

�� ! ��

perl �� (XAnder)

Thu, 22 Nov 2012 12:37:26 GMT

>> �� . �� 10
>> �� 2 ��. �� -- ��!
> � ��
> ...

�� ӣ-�� . � ��, ��. � �� . �� -�� :

[code]$ cat > ips
192.168.100.120
172.31.25.12
$ cat ips | perl -e 'while (<>) {chomp; push @ips, $_; s/.*\.//; push @last, $_;} $,="\n"; print "= ips =", @ips, "= last =", @last, "";'
= ips =
192.168.100.120
172.31.25.12
= last =
120
12
$ _[/code]

perl �� (merfi)

Wed, 21 Nov 2012 11:22:17 GMT

>>�� 2 ��
>> ��
> {
> �� . �� 10
> �� 2 ��. �� -- ��!
> �� , �� 10 ��!, �� "��
> ��".
> } Lather, rinse, repeat ()

� ��
#!/usr/bin/perl -w
open(FILE,"f.txt");
while(<FILE>)
{
chomp;
my @ip_addr = $_;
print "@ip_addr\n" ;
foreach $arg (@ip_addr)
{
$x = rindex($arg,".");
my @ip_oktet = substr($arg,$x+1) ;
print "@ip_oktet\n" ;
}

}
close(FILE);

perl �� (Andrey Mitrofanov)

Wed, 21 Nov 2012 08:45:42 GMT

>�� 2 ��
> ��

{
�� . �� 10 �� 2 ��. �� -- ��!

�� , �� 10 ��!, �� "�� ".

} Lather, rinse, repeat ()

OpenForum RSS: perl ���������

perl ��������� (XAnder)

perl ��������� (merfi)

perl ��������� (XAnder)

perl ��������� (merfi)

perl ��������� (Andrey Mitrofanov)

OpenForum RSS: perl ��

perl �� (XAnder)

perl �� (merfi)

perl �� (XAnder)

perl �� (merfi)

perl �� (Andrey Mitrofanov)