#!/usr/bin/perl



$string = shift;
# 1° paramère à la ligne de commande
chomp $string;
# enlever le passage à la ligne (= \n = newline) s'il existe

if ($string eq "") {
	$string = "Un string avec des espaces    !";
	print "\n";
	print "Utilisation du string par défaut :\n";
	print "\n";
	print $string;
	print "\n";
	print "Sinon : donnez en argument un string avec des espaces, entre guillemets (\")";
	print "\n";
	print "\n";
}

$_ = $string;
@vect = split;
# mode par défaut de 'split' : 
#	agit sur le contenu de $_
#	utilise \s (= whitespace = espace blanc) comme séparateur
# donc : sépare $_ sur les espaces blancs et met les morceaux dans
# les éléments successifs d'un vecteur
# ici on assigne ce vecteur à la variable @vect
print "\n";
print "split\n";
print "\n";

foreach (@vect) {
	print ;
	print "\n";
}

$_ = $string;
@vect = split (/\s/, $_);
# la même chose , mais explicitement : 
#	agit sur le contenu de $_
#	utilise \s (= whitespace = espace blanc) comme séparateur
# donc : sépare $_ sur les espaces blancs et met les morceaux dans
# les éléments successifs d'un vecteur
print "\n";
print "split (/\\s/, $_)\n";
print "\n";

foreach (@vect) {
	print ;
	print "\n";
}

$_ = $string;
@vect = split (/a/, $_);
# la même chose , mais avec le caractère 'a' comme séparateur : 
#	agit sur le contenu de $_
#	utilise le caractère littéral 'a' comme séparateur
# donc : sépare $_ sur le caractère littéral 'a' et met les morceaux dans
# les éléments successifs d'un vecteur
# ici on assigne ce vecteur à la variable @vect
print "\n";
print "split (/a/, $_)\n";
print "\n";

foreach (@vect) {
	print ;
	print "\n";
}