Perlben hogyan tudnám minden sorból kiszedni az utolós egész számot?

Minden sorból? Mindegyikből?

G.

#3 vagyok

Persze ez akkor érvényes, ha az utolsó egész szám a sor végén van.

Egyéb esetben én reguláris kifejezések használatát ajánlanám.

Magyar Perl leírás:

[link]

És ha ez nem lenne elég:

Google("perl string index of");

Google("perl substring");

Google("perl regex");

Google("perl string to int");

Nezd csak ezt: [link]

Amire ra kell keresni, az a "positive look-ahead assertion". Itt egy pelda sor, ahol az utolso egesz szamot kiszedjuk:

perl -le '$s = "Cirmos 124 cica 934765 hajj, 20935, hova lett 2934875 a vaj?"; $s =~ s/(\d+)(?=\D+$)//; print $s; print $1'

Csak be kell tenni egy if moge:

perl -le '$s = "Cirmos cica hajj, hova lett a vaj?"; if ($s =~ s/(\d+)(?=\D+$)//){ print $s; print $1} else {print "\n"}'