Utilisation de la fonction de jointure perl
Syntaxe
La syntaxe de la fonction de jointure est mentionnée ci-dessous.
join (String, list)
Le premier argument de la fonction join () contient le caractère ou la valeur de chaîne qui sera utilisée pour combiner les valeurs de liste. Le deuxième argument de la fonction join () contient la liste des valeurs de chaîne ou les valeurs de tableau qui seront utilisées pour rejoindre. Cette fonction renvoie la chaîne combinée après avoir rejoint les valeurs de liste avec n'importe quel caractère ou chaîne ou la chaîne vide.
Exemple-1: rejoignez la liste des valeurs de chaîne
Créez un fichier perl avec le code suivant qui affiche les utilisations de la fonction join () pour combiner la liste des valeurs de chaîne. Trois fonctions join () ont été utilisées dans le code. La fonction première join () a été utilisée pour combiner les valeurs de chaîne avec la chaîne vide. La deuxième fonction join () a été utilisée pour combiner les valeurs de chaîne avec un espace. La troisième fonction join () a été utilisée pour combiner les valeurs de chaîne avec un côlon (:). La sortie de chaque fonction join () a été imprimée plus tard.
#!/ usr / bin / perl
#Join Strings avec une corde vide
$ combinésString = join ("", "i", "like", "perl");
Imprimez "La valeur de chaîne combinée est: \ n", $ combintestring, "\ n";
#Join Strings avec l'espace
$ combinésString = join ("", "i", "like", "perl");
Imprimez "La valeur de chaîne combinée est: \ n", $ combintestring, "\ n";
#Join Strings avec Colon (:)
$ combinésString = join (":", "i", "like", "perl");
Imprimez "La valeur de chaîne combinée est: \ n", $ combintestring, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-2: rejoignez les valeurs du tableau
Créez un fichier perl avec le code suivant qui affiche les utilisations de la fonction join () pour combiner les valeurs du tableau. Les quatre fonctions join () ont été utilisées dans le code. La fonction première join () a été utilisée pour combiner les valeurs du tableau avec l'espace. La deuxième fonction join () a été utilisée pour combiner les valeurs du tableau avec l'espace d'onglet. La troisième fonction join () a été utilisée pour combiner les valeurs du tableau avec une nouvelle ligne (\ t). La quatrième fonction join () a été utilisée pour combiner les valeurs du tableau avec une valeur de chaîne. La sortie de chaque fonction join () a été imprimée plus tard.
#!/ usr / bin / perl
@fruits = ("mangue", "banane", "raisin", "lichi", "fraise");
#Join les valeurs du tableau avec l'espace
$ CombinedString = join ("", @Fruits);
Imprimez "les valeurs combinées du tableau avec l'espace: \ n", $ combinés, "\ n";
#Join Strings avec espace d'onglet
$ CombinedString = join ("\ t", @Fruits);
Imprimez "Les valeurs du tableau combinées avec TAB: \ n", $ combinés, "\ n";
#Join Strings avec la nouvelle ligne
$ combintestring = join ("\ n", @Fruits);
Imprimez "les valeurs combinées du tableau avec la nouvelle ligne: \ n", $ combinée, "\ n";
#Join Strings avec la chaîne
$ CombinedString = join ("et", @Fruits);
Imprimez "Les valeurs de tableau combinées avec la chaîne: \ n", $ combinée, "\ n";
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-3: rejoignez les valeurs de plusieurs variables
Créez un fichier perl avec le code suivant qui affiche les utilisations de la fonction join () pour combiner les valeurs de plusieurs variables. Trois valeurs d'entrée seront tirées de l'utilisateur et stockées dans les variables, $ name, $ e-mail et mot de passe $. La fonction join () a été utilisée dans le code pour combiner les valeurs de ces variables avec un côlon (:). Ensuite, la fonction Split () a été utilisée pour extraire les valeurs de la chaîne combinée et les comparer avec les valeurs de messagerie et de mot de passe particuliers. Le message de bienvenue sera imprimé si la condition «IF» renvoie vrai; Sinon, un message d'erreur sera imprimé.
#!/ usr / bin / perl
Imprimez "Entrez votre nom:";
#Take le nom du répertoire de l'utilisateur
$ name =;
chomp ($ name);
Imprimez "Entrez votre e-mail:";
#Take le nom du répertoire de l'utilisateur
$ email =;
chomp ($ e-mail);
Imprimez "Entrez votre mot de passe:";
#Take le nom du répertoire de l'utilisateur
$ mot de passe =;
chomp ($ mot de passe);
#Join Strings avec une corde vide
$ CombinedString = join (":", $ name, $ e-mail, $ mot de passe);
Imprimez "La valeur de chaîne combinée est: \ n", $ combintestring, "\ n";
#Extrait la chaîne combinée
@splitedValue = Split (":", $ combinée);
if ($ SplitTedValue [1] Eq 'Fahmida @ Exemple.com '&& $ SplitTedValue [2] Eq' Secret ')
Message de bienvenue #print
Imprimez "Bienvenue $ SplitatedValue [0] à notre site.\ n ";
autre
Message d'erreur #print
Imprimer "un e-mail ou un mot de passe est faux.\ n ";
Sortir:
La sortie suivante apparaîtrait après avoir exécuté le code ci-dessus si la mauvaise adresse e-mail était fournie par l'utilisateur.
La sortie suivante apparaîtrait après l'exécution du code ci-dessus si l'adresse e-mail et le mot de passe valides étaient fournis par l'utilisateur.
Exemple-4: rejoignez le contenu de plusieurs fichiers
Créez un fichier perl avec le code suivant qui affiche les utilisations de la fonction join () pour combiner le contenu de plusieurs fichiers. Deux fichiers existants ont été ouverts par la fonction Open () ici. Ensuite, le contenu des deux fichiers est stocké en deux tableaux, et la fonction join () est utilisée pour combiner le contenu de ces valeurs de tableau.
#!/ usr / bin / perl
# Définissez le premier nom de fichier
$ filename1 = 'myfile.SMS';
# Ouvrez le fichier pour la lecture
ouvrir $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Stockez le premier fichier de contenu dans un tableau
@ file1 = <$file_handler1>;
# Définissez le deuxième nom de fichier
$ filename2 = 'temp.SMS';
# Ouvrez le fichier pour la lecture
ouvrir $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Stockez le deuxième fichier du contenu dans un tableau
@ file2 = <$file_handler2>;
# Combiner le contenu du fichier à l'aide de la fonction join ()
print join ("", @ file1, @ file2);
Sortir:
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus. Ici, les trois principales lignes de la sortie sont le contenu du mon fichier.SMS fichier, et la dernière ligne de la sortie est le contenu du temp.SMS déposer.
Conclusion
Les objectifs de l'utilisation de la fonction join () à Perl ont été expliqués dans ce tutoriel en utilisant plusieurs exemples Perl. J'espère que ce tutoriel aidera les utilisateurs de Perl à utiliser correctement la fonction join () dans leur code.