Funzione Perl link

Descrizione

Questa funzione crea un nuovo nome di file, NEWFILE, collegato al file OLDFILE. La funzione crea un collegamento fisico; se vuoi un link simbolico, usa la funzione symlink.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

link OLDFILE,NEWFILE

Valore di ritorno

Questa funzione restituisce 0 in caso di errore e 1 in caso di successo.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base, questo creerà un nuovo file utilizzando il file esistente -

#!/usr/bin/perl

$existing_file = "/usr/home/test1";
$new_file = "/usr/home/test2";
$retval = link $existing_file, $new_file ;
if( $retval == 1 ) {
   print"Link created successfully\n";
} else {
   print"Error in creating link $!\n";
}

Quando viene eseguito il codice sopra, produce il seguente risultato:

Error in creating link No such file or directory