Regular Expression: Ich suche mal wieder ein Regexp .... - #54456 (Allgemeines zu Perl)

Crian

2003-09-22 00:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Ich meine soetwas:

Code: (dl )

1
2
3

my $text = ...;
$text =~ s~^([^<]+)~~;
my $fang = $1;

aber halt in einem Befehl. Inzwischen sieht es jetzt so aus:

Code: (dl )

1
2

if ($text =~ s~^([^<]+)~~) {
    my $fang = $1;

deshalb stört es mich nicht mehr so, aber ich würd doch gern wissen, ob es irgendwie geht.

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