bräuchte hilfe bei einem regulären Ausdruck - #58428 (Allgemeines zu Perl)

Strat

2005-09-29 17:15

User since
2003-08-04
5246 Artikel
ModeratorIn

teste mal:

Code: (dl )

1
2
3

if ( $var =~ /^(pl|ptk) (\w+\.\1)$/) {
  my ($mode, $program) = ($1, $2);
}

oder:

Code: (dl )

1
2
3

if ( $var =~ /^(pl|ptk) (\w+\.(?:pl|ptk))$/) {
  my ($mode, $program) = ($1, $2);
}

(...) speichert
(?: ... ) gruppiert, speichert aber nicht.

\w enthaelt die Zeichen a-zA-Z0-9_ wenn der name deines perl-scriptes noch andere zeichen enthaelt, musst du die eventuell hinzufuegen, oder tatsaechlich mit .+ oder aehnlichem arbeiten...\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/