in reply to creating a link
By the way, your 3rd line of code has a typo: if ($sbuck eq 'yes') should be if ($buck eq 'yes'). You would have caught this typo if you had started your script with use strict;, which is almost always a very good idea. In addition, your second test is using the variable $buck instead of $buck2 (line 11).use strict; use warnings; my $buck; print "does your rock have the same metalic luster as gold? yes or no: + "; chomp($buck = <STDIN>); if ($buck eq 'yes') { print "your rock is pyrite [Hit enter to quit, \"L\" and enter to se +arch Google] "; system('explorer "http://www.google.com/search?q=pyrite"') if (my $in = <STDIN> =~ /^L/i); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: creating a link
by ambrus (Abbot) on Mar 26, 2005 at 12:47 UTC |