- Ant
                - Some of my best work - Fish Dinner

Thanks, I got it working with this:

while(<>){
 if(/dick/){
    print "you said dick!\n";
  } else {
   print "you didn't say dick, hah, what a dick!\n";
 }
 last;
}
[download]

Thanks again,
jrbush82

And if you did the following...

while(<>){
 if(/dick/){
    print "you said dick!\n";
    last;
  } else {
   print "you didn't say dick, hah, what a dick!\n";
 }
}
[download]

it would keep waiting for input until it got 'dick'

                - Ant
                - Some of my best work - Fish Dinner

That will always quit after the first pass. So why do you have a loop at all? If that "works", what you really want is just:

$_= <>;
if(/dick/){
    print "you said dick!\n";
  } else {
   print "you didn't say dick, hah, what a dick!\n";
 }
[download]

I'm not sure what you're asking here. Is the idea that if you find the string you're looking for, print the message and end? If that's the case, then what you want is last :

my $found=0;
while(<>) {
  if (/woot!/) {
    print "You said woot!\n";
    $found=1;
    last;
  }
}
print "Nobody said 'woot!'\n" unless $found;
[download]

Notice also the addition of the variable that's set to a true value if you find the string you're looking for.

HTH (Oh, and BTW, since this is a public site ... you might want to pick less 'ripe' examples =)

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]

for (@ARGV) {
 if(/dick/){
  print "you said dick!\n";
 } else {
   print "you didn't say dick, hah, what a dick!\n";
 }
}
[download]

OR

/dick/ ?  print "you said dick!\n" : print "you didn't say dick, hah, 
+what a dick!\n" for (@ARGV);
[download]

__________________________________________________
<moviequote name="Hackers">
The Plague: [...]Well let me explain the New World Order. Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo!
</moviequote>

mexnix.perlmonk.org