split: problem.. - #84250 (Allgemeines zu Perl)

Crian

2004-07-14 12:15

User since
2003-08-04
5872 Artikel
ModeratorIn

oder (split /\./, $string)[0]
oder (split /\./)[0]

Code: (dl )

my $string = "eins.zwei.drei";
my $strg   = (split /\./, $string)[0];
print $strg, "\n";

$_    = $string;
$strg = (split /\./)[0];
print $strg, "\n";

Ausgabe

Code: (dl )

1
2

eins
eins

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite