Use of implicit split to @_ is deprecated umgehen (gelöst) - #146431 (Allgemeines zu Perl)

FtR

2011-03-12 18:18

User since
2003-08-20
39 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

#!/usr/bin/perl -w 
use strict; 
my $feld7 = '3,'; 
print "ja\n" if @{[split /,/,$feld7]} > 1; 
print "ja fuer FtR, der/die das mit dem -w nicht getestet hat ;)" if  scalar($feld7 =~s/,(?=.)//g)>0;

Das hat den vorteil das die umkopiererei wegfällt,
hat aber den Nachteil, das die Variable verändert wird.

FtR

Code: ()

1
2

print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}