Take a look at the perl documentation for Getopt::Std (for letter type switches...i.e: "-s") and/or Getopt::Long (for word type switches ). I believe these modules are included with every standard Perl distribution. There are plenty of code samples in the documentation to get you rolling.
HTH JD [EMAIL PROTECTED] wrote: > Before I roll my own ARGV parse code I wanted to > know if someone had > some sample code to get me started. I just want to > be able to pass > simple switches that contain one parameter each to > my perl app. I have > looked to the list first for I plan to accept the > switches in any > order, but only allow each of them to be called once > each. The only > important dependencies that I can think of right now > is that switch - > cmd has to be passed if any other switch is used and > all switches must > have a valid parameter. I'm not asking anyone to > write me anything, > but any related sample code will help tremendously. > > ex: perlscript -cmd show -type session -loc all > ex: perlscript -type process -cmd show > > > > > That did the trick. Thanks. > Bill > > > $Bill Luebkert wrote: > > >Bill Platt wrote: > > > > > > > >>Hello, > >> > >>I have included a section of code below > >>that is driving me nuts. > >> > >>If I don't run the Substitution operations, > >>then I can successfully extract the URL > >>and the imbedded anchor text from > >>$parsed_html. > >> > >>Once I include the Substitution operations, > >>then I cannot extract the same results. > >> > >>Even though the output text looks theoretically > >>correct, I cannot see why any combination of the > >>Substitution operation breaks my code. > >> > >>Can you offer any suggestions to me? > >> > >> > >> > >>if($parsed_html =~ m/href/) > >>{ > >> > >>$parsed_html =~ s/\s+/ /gs; > >>$parsed_html =~ s/>/">/gs; > >> > >> > > > >The above could cause problems later. > > > > > > > >>$parsed_html =~ s/=http/="http/gis; > >>$parsed_html =~ s/"+/"/gs; > >>$parsed_html =~ s/'"/'/gs; > >>$_ = "$parsed_html"; > >> > >>@urlmatch = (@urlmatch,$2,$4) while m{ > >> < \s* > >> A \s+ HREF \s* = \s* (["']) (.*?) (["']) > >> \s* > \s* (.*?) \s* <\/a \s* > > >> > >> > > > >There is a " before the last > that you will need > to account for. > > > > > > > >>}gsix; > >> > >>print > "0=$urlmatch[0]<BR>1=$urlmatch[1]<BR>2=$urlmatch[2]<BR>"; > >>print > "3=$urlmatch[3]<BR>4=$urlmatch[4]<BR>5=$urlmatch[5]<BR>"; > >> > >>print > "s0=$0<BR>s1=$1<BR>s2=$2<BR>s3=$3<BR>s4=$4<BR>s5=$5<BR>"; > >>print "$_<BR><HR>$parsed_html<BR><HR>"; > >> > >>} > >> > >> > > > >my @urlmatch; > >my $parsed_html = > > "<A HREF=http://www.fubar.com/>URL</A>\n<A > HREF=http://www.fubar2.com/>URL2</A>\n"; > > > >if ($parsed_html =~ m/href/i) { > > > > $parsed_html =~ s/\s+/ /gs; > > $parsed_html =~ s/>/">/gs; > > $parsed_html =~ s/=http/="http/gis; > > $parsed_html =~ s/"+/"/gs; > > $parsed_html =~ s/'"/'/gs; > > $_ = $parsed_html; > > > > print "\$_=$_\n"; > > while ( # note I added "? to the last part of > the RE ------v (or just drop the \s*> part) > > > /<\s*A\s+HREF\s*=\s*(["'])(.*?)(["'])\s*>\s*([^<]*)\s*<\/a"*\s*>/gis) > { > > > > # print $n variables out: > > > > for (1..9) { > > eval "print \"<BR>$_=', \$$_, '\n\" if defined > \$$_"; > > } > > > > } > >} > > > > > > > > > > > > _______________________________________________ > Perl-Unix-Users mailing list > Perl-Unix-Users@listserv.ActiveState.com > To unsubscribe: > http://listserv.ActiveState.com/mailman/mysubs > > _______________________________________________ > Perl-Unix-Users mailing list > Perl-Unix-Users@listserv.ActiveState.com > To unsubscribe: > http://listserv.ActiveState.com/mailman/mysubs > > _______________________________________________ > Perl-Unix-Users mailing list > Perl-Unix-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com _______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs