Zahl im Text finden und bearbeiten - #64927 (Allgemeines zu Perl)

jemand

2006-04-13 19:47

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

z.B.:

Code: (dl )

my $zahl;
if($zeile =~ /Points/){
    $zeile =~ /(\d+)/;
    $zahl = $1;
}
$zahl -= 200;

\d trifft alle zahlen, wie auch [0-9]
+ da es ja mehrere sind

$1 ist das was im RegExp in Klammern () steht
der Inhalt der 2. klammer wäre dann $2, geht aber nur bis $9

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;