Perl.it - Documenti

[13] Come posso tradurre le tilde (~) nel nome di un file? tilde tilde espansione

Utilizzate l'operatore (glob()) <>, documentato in perlfunc. Le vecchie versioni di Perl richiedono che abbiate installato una shell che espande le tilde. Le versioni più recenti di Perl contengono direttamente questa caratteristica al loro interno. Il modulo File::KGlob (disponibile da CPAN) offre una funzionalità di glob più portabile.

All'interno di Perl, potete utilizzare direttamente questo codice:

	$nomefile =~ s{
	  ^ ~             # trova una tilde ad inizio stringa
	  (               # salva in $1
	      [^/]        # un carattere diverso da slash
	            *     # ripetuto una o piu` volte (0 significa se stessi)
	  )
	}{
	  $1
	      ? (getpwnam($1))[7]
	      : ( $ENV{HOME} || $ENV{LOGDIR} )
	}ex;

vedi in inglese

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.