Perl/Funzioni Native su scalari: differenze tra le versioni

 

Esempio d'uso

my $a = 'questa è una stringa di caratteri 36';

print '$a è lunga: '.( length $a )."\n";

print '$b è lungo: '.( length $b )."\n";

print '$b è lungo: '.length($b)."\n";

che produrrà :

 

Esempio d'uso

my $a = 'questa è una stringa di caratteri 36';

#cerco "una" in $a

print '"t" dopo "una" si trova alla posizione '.$c.' in $a'."\n";

 

che produrrà :

 

 

Vediamo ora un modo di cercare ogni SUB presente in una stringa usando index:

my $a = 'questa è una stringa di caratteri 36';

print "cerco 't' in '$a'\n";

$p++;

}

 

che produrrà :

 

Esempio d'uso

my $a = 'questa è una stringa di caratteri 36';

#cerco dal fondo "una" in $a

print '"t" prima "una" si trova alla posizione '.$c.' in $a'."\n";

 

che produrrà :

 

 

Vediamo ora un modo di cercare ogni SUB presente in una stringa usando index:

my $a = 'questa è una stringa di caratteri 36';

print "cerco dal fondo 't' in '$a'\n";

$p--;

}

 

che produrrà:

 

Esempio d'uso

# 1 2 3 4 5

# 012345678901234567890123456789012345678901234567890123

print "\$b = $b\n";

print "\$c = $c\n";

 

'''NOTA:''' $da_20_a_34 contiene 15 caratteri , $da_20_a_23 contiene 4 caratteri , 'Smith' è più lungo di TonT

 

Esempio d'uso

 

my $a = "pippo corre nel prato";

print ( scalar reverse $b ). "\n";

 

 

 

Vediamone un'applicazione:

 

 

my $a = "questa è una riga con più ritorni a capo\n\n";

 

 

che produce il seguente output

Vediamo questo esempio:

 

 

my $a = "questa è una riga\n";

print "$b\n";

 

 

che produce il seguente output

 

 

print "\n"; #qui si torna a capo ma potrebbe essere nei numeri sopra

 

 

che produce

 

Esempi

 

$word = "pippo";

}

 

 

===hex===

 

Esempi

 

print hex '0xAf'; # scrive '175'

print hex 'aF'; # scrive '175'!

 

 

'''NOTA:'''per la sola stampa/conversione si vedano anche sprintf, printf, unpack

 

Esempi

 

print oct '0257'; # scrive '175'

 

 

'''NOTA:'''per la sola stampa/conversione si vedano anche sprintf , printf , unpack

 

Esempi

175

print ord 'abc'; # scrive '95'

 

 

==Maiuscole/Minuscole==

 

Esempio

print ( lc "AbC" )."\n"; # scrive 'abc'

 

===lcfirst===

 

Esempio

print ( lcfirst "AbC" )."\n"; # scrive 'aBC'

 

===uc===

 

Esempio

print ( lc "AbC" )."\n"; # scrive 'ABC'

 

===ucfirst===

 

Esempio

print ( ucfirst "AbC" )."\n"; # scrive 'Abc'

 

==Particolari==

#tr/SEARCHLIST/REPLACEMENTLIST/cds

 

 

my $a = "ABCCAB";

my $cnt = $d =~ tr/A/A/; # $cnt ci sono quante A (sostituzioni) sono presenti in $d (2)