[perl] skrypt wczytujący dowolny tekst do tablicy

Linux Opublikowano: 30/05/2009

O autorze

Jestem webmasterem/webdeveloperem
z pasji. Lubię to co robię i chcę dzielić się wiedzą z innymi osobami.
Specjalizuję się w technologiach związanymi z CSS, JS, PHP.

Postanowiłem zaprezentować mały cykl zadań dotyczących języka PERL, który jest bardzo przydatny w administracji systemów typu Linux.

A więc zaczynamy:

Napisz skrypt w języku Perl wczytujący dowolny tekst do tablicy. Kod skryptu ma policzyć ilość wyrazów we wczytanym ciągu znaków oraz wyświetlić ciąg znaków bez odstępów (sklejony w jedną całość).

#!/usr/bin/perl
use warnings;
 
print "Wprowadź tekst: ";
$tekst = <STDIN>;
@tab = split(/ /, $tekst);
 
$c = 0;
 
foreach (@tab)
{
  $c++;
}
 
print "Wczytano wyrazów: $cn";
print "Wczytano wyrazów: " .@tekst. "n";
 
print @tab;
 
print "n";