[perl, прикол]вот так

Barbie29

#!/usr/bin/perl

$_=qq~

1234

34 -4567

 3456

-0.35e-0,2

    56grf45

-.034 E20

     -.034 e2,01   -,045 e-,23

  -,034 e201  3e-.20

-,045 e-,23 e-0.88

4 E-0.20

22 

E-21

 -0.2 w         4 3

345

2 ^-,3

~;

$a='[+-]?\d*[,.]?\d+';print"$_\n"for/$a\s?[e^]$a|$a|[+-]?e$a/ig

gopnik1994

Elina74

lilia_rass

rosali

kruzer25

Так вот это и есть способ такое сделать

rosali

[xenon ~]$ perl -e '$_ = "<table><tr><td>x</td><td>y</td></tr><tr><td>z</td></tr></table>"; 

{} for m#<table>(?:<tr>(?:<td>([^<]*?{print "$1 "})</td>)*(?{print "\n"})</tr>)*</table>#g;'

x y

z

Barbie29

rosali

[xenon ~]$ perl -e '$_ = "abcdaabbcedabvadecbbce"; @x = /(?:([ab]?{$x.="$1 "}+/g; print $x'

a b a a b b a b a b b

[xenon ~]$ perl -e '$_ = "abcdaabbcedabvadecbbce"; /(?:([ab]?{$x.="$1 "}+/g; print $x'

a b

Barbie29

 

[observ vlc-0.8.4a 18:17:31]# cat x.pl

#!/usr/bin/perl -w

$_ = "abcdaabbcedabvadecbbce";

@x = /(?:([ab]?{$x.="$` $1 $'"}+/g;

print "[ $x ]\n";

$x='';

$_ = "abcdaabbcedabvadecbbce";

/(?:([ab]?{$x.="$` $1 $'"}+/g;

print "[ $x ]\n";

[observ vlc-0.8.4a 18:17:37]# perl x.pl

[  a bcdaabbcedabvadecbbce b cdaabbcedabvadecbbceabcd a abbcedabvadecbbceabcd a bbcedabvadecbbceabcd b

 bcedabvadecbbceabcd b cedabvadecbbceabcdaabbced a bvadecbbceabcdaabbced b vadecbbceabcdaabbcedabv a 

decbbceabcdaabbcedabvadec b bceabcdaabbcedabvadec b ce ]

[  a bcdaabbcedabvadecbbce b cdaabbcedabvadecbbce ]

[observ vlc-0.8.4a 18:17:39]#

 

rosali

 /(?:([ab]?{$x.="$` $1 $'"}+/g;  

Barbie29

в зависимости от того, присваивается результат его работы в переменную или нет

rosali

Barbie29

#!/usr/bin/perl -w

if('00'){print "ok\n";} else {print "bred\n"}

if('0'){print "ok\n";} else {print "bred\n"}

rosali

Barbie29

просто перловая глупость

bvasilik

Barbie29

bvasilik

Barbie29

bvasilik

Barbie29

ruler

eduard615