Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- ##Palabras##
- $palabras=0;
- $linea=<STDIN>;
- while ($ linea ne "") {
- chop($ linea);
- @arr=split(/ /, $ linea);
- $palabras=palabras+@arr;
- $linea=<STDIN>;
- }
- print ("\nEl total son: $ palabras palabras\n");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement