Dear List,
Perl is not my first programming language and I have
some knowledge in C and VB. Anyway, I haven't done C
programming for the past 2 yrs.
I have the basic understanding of the beginning part
of Perl and kind of blur at Regular Expression but no
background on web development at all.
I think I should get a proper book (I was relying on
the short tutorials in net), any recommendations of
free library books in the net?
Can I get some help in my problem perhaps as I say
some enlightment.
Rgds,
--- Roger C Haslock <[EMAIL PROTECTED]> wrote: > You
say you are new to programming. Perl is not an
> easy language for a
> programming novice. Most tutorials will show you how
> to accomplish, in Perl,
> something you already know in another language.
>
> There are few tutorials on the use of modules
> because all well-written
> modules have, as part of their documentation,
> examples of their use. Pick
> any modules at random from the standard issue, or
> others from www.cpan.org,
> and study their examples.
>
> May I also recommend 'Perl Power!' by Michael
> Schilli
> (http://www.perlmeister.com/index.html), and 'The
> Perl 5 Programmers
> Reference'
> (http://ez2www.com/go.php3?site=book&go=1566047501
> on Amazon) or
> something similar, and annotate it.
>
> PS: Looking for web references to the books, I came
> across the following
> advice:-
>
> >>... (and if you want to learn Perl as your first
> programming language you
> should SERIOUSLY re-think that).
>
> >>Not for a total novice programmer (who shouldn't
> learn Perl first anyway),
> ...
>
> >> A person new to ALL programming should NOT buy
> this book ...
>
> If you want to learn programming, I can only
> recommend 'Algorithms + Data
> Structures = Programs' by Niclaus Wirth (out of
> print).
>
> - Roger -
>
>
> ----- Original Message -----
> From: "Sunthari" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, August 21, 2001 5:50 AM
> Subject: Help on script
>
>
> > Dear List,
> >
> > I am new to programming and currently looking into
> > Perl. I am going thru the available Perl tutorial
> in
> > the net but there are less examples especially on
> how
> > to use modules.
> >
> > I have wrote this simple script of match word and
> > count it for a text file (well, did some
> cut-n-paste
> > here and there). I wanted to extend it by putting
> an
> > interface- webpage with a searchbox to post the
> search
> > word to this script.
> >
> > I have tried CGI.pm but I failed to read/pass the
> > search word to script. Please take a look at this
> > script and html file . Please mind me if there's
> > really stupid mistakes since I desperately need
> some
> > help.
> >
> > Really looking forward to hear from the list
> asap.Your
> > help is very much appreciated.
> >
> > Rgds,
> >
> > P/S: I have attached the following:
> > match.txt - original sript without cgi
> > matchcgi.txt - using CGI.pm
> > match.htm
> >
> >
>
>
>
----------------------------------------------------------------------------
> ----
>
>
> > #!usr/perl/bin
> >
> > @ARGV = "C:\\Perl\\bin\\folder\\princess.txt";
> > use CGI;
> > $q = new CGI;
> > $pattern = $cgi-> param("query");
> >
> > chop($pattern);
> > $filename = $ARGV [0];
> > $count =0;
> >
> > print $q-> header(),
> > print $q-> start_html,
> > print $q-> <h1> TheOutputs,/h1>\n",
> > print "Matches found : $pattern\n";
> >
> > while ($line = <>) {
> > if ($line =~ (/$pattern/)) {
> > @words = split (/$pattern/, $line);
> > $count += @words-1;
> >
> > }
> >
> > if (eof) {
> > $filename = $ARGV[0]; }
> >
> > }
> >
> > if ($count == 0 ) {
> > print "No matches found. \n";
> > } else {
> > print "Total numbers of matches : $count \n";
> > }
> >
> > print $q-> end_html
>
>
>
----------------------------------------------------------------------------
> ----
>
>
> > #!usr/perl/bin
> >
> > @ARGV = "C:\\Perl\\bin\\folder\\princess.txt";
> >
> > print "Enter your search pattern: ";
> > $pattern =<STDIN>;
> > chop($pattern);
> > $filename = $ARGV [0];
> > $count =0;
> > print "Matches found :\n";
> >
> > while ($line = <>) {
> > if ($line =~ (/$pattern/)) {
> > @words = split (/$pattern/, $line);
> > $count += @words-1;
> >
> > }
> >
> > #Pointing back to the first element in text after
> EOF
> > if (eof) {
> > $filename = $ARGV[0]; }
> >
> > }
> >
> > if ($count == 0 ) {
> > print ("No matches found. \n");
> > } else {
> > print "Total numbers of matches : $count \n";
> > }
> >
> >
> >
>
>
>
----------------------------------------------------------------------------
> ----
>
>
> > --
> > To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> > For additional commands, e-mail:
> [EMAIL PROTECTED]
>
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
