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
> [email protected]
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
> > _______________________________________________
> Perl-Unix-Users mailing list
> [email protected]
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
> > _______________________________________________
> Perl-Unix-Users mailing list
> [email protected]
> 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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
