sau si mai clar ca vad ca nu s-a inteles:
#program c2f.pl
$variabila = <STDIN>;
chop($variabila);
if ($variablia =~ m/^yes$/) {
print "$variabila ati inteles\n";
}else {
print "Nu prea ati inteles\n";
}
perl -w c2f.pl
----- Original Message -----
From: "Cristian" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 01, 2002 12:52 PM
Subject: [rlug] Re: perl regexp
> $variabila =~ m/^.....$/
>
> acest =~ links a regex search with the target string to be searched.
> Atentie! : ^...$ te asigura ca $variablia contine doar digiti
>
>
> ----- Original Message -----
> From: "Alex 'CAVE' Cernat" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, August 01, 2002 12:28 PM
> Subject: [rlug] perl regexp
>
>
> > salut
> >
> > cum se poate face in perl un matching de regexp intr-o singura linie ?
> >
> > pana acuma faceam ceva de genul
> > $_ = $variabila;
> > if( /^...........$/ )
> > { match }
> > else
> > { no match }
> >
> > din cate imi aduc aminte se scrie ceva de genul $variabila ~= /^....$/
> > dar nu mai stiu exact daca cele 2 coduri sunt identice
> >
> > Alex
> > ---
> > Pentru dezabonare, trimiteti mail la
> > [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
> > REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
> >
> >
>
> ---
> Pentru dezabonare, trimiteti mail la
> [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
> REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
>
>
---
Pentru dezabonare, trimiteti mail la
[EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
