W
Wes Groleau
OK, this has probably already been done a hundred times,
but I wanted to get some practice. But I'm doing something
wrong and I can't see it.
File "PickOne" is:
#!/usr/bin/perl
@words = <STDIN>;
$new_word = $words[rand(@words)];
chomp ($new_word);
print ($new_word);
shell command
ls | PickOne
has no output. If I use `ls` instead of stdin,
it does give me one filename each time.
but I wanted to get some practice. But I'm doing something
wrong and I can't see it.
File "PickOne" is:
#!/usr/bin/perl
@words = <STDIN>;
$new_word = $words[rand(@words)];
chomp ($new_word);
print ($new_word);
shell command
ls | PickOne
has no output. If I use `ls` instead of stdin,
it does give me one filename each time.