Loading ...
Sorry, an error occurred while loading the content.
 

Re: [PBML] how to?

Expand Messages
  • uvega@technitrade.com
    Hi do i unsubscribe my email address? thanks Ulises [Non-text portions of this message have been removed]
    Message 1 of 8 , Mar 1, 2002
      Hi do i unsubscribe my email address?

      thanks

      Ulises

      [Non-text portions of this message have been removed]
    • Franki
      reading below your post would be a good start. Unsubscribing info is here: http://help.yahoo.com/help/us/groups/groups-32.html ... From:
      Message 2 of 8 , Mar 1, 2002
        reading below your post would be a good start.

        Unsubscribing info is here:
        http://help.yahoo.com/help/us/groups/groups-32.html

        -----Original Message-----
        From: uvega@...
        [mailto:uvega@...]On Behalf Of uvega@...
        Sent: Saturday, 2 March 2002 1:56 AM
        To: perl-beginner@yahoogroups.com
        Subject: Re: [PBML] how to?


        Hi do i unsubscribe my email address?

        thanks

        Ulises

        [Non-text portions of this message have been removed]



        Unsubscribing info is here:
        http://help.yahoo.com/help/us/groups/groups-32.html

        Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
      • daymobrew
        How did you use the File::Find module? The following code prints out the names of pdf files: #!/usr/local/bin/perl -w use strict; use File::Find; sub wanted {
        Message 3 of 8 , Mar 1, 2002
          How did you use the File::Find module?
          The following code prints out the names of pdf files:

          #!/usr/local/bin/perl -w

          use strict;
          use File::Find;

          sub wanted
          {
          if ( $File::Find::name =~ /\.pdf$/i )
          {
          print "$File::Find::name\n";
          }
          }

          File::Find::find({wanted => \&wanted, no_chdir => 1 }, '.' );

          I'm not sure how you change the '/\.pdf$/i' regular expression to be
          a variable, which is what I think you need to do. I'm sure someone
          has the Perl Cookbook handy to look this up.

          --- In perl-beginner@y..., "Nguyen, David M" <david.m.nguyen@x> wrote:
          > I had tried using Find::File module to search but it could not
          search PDF
          > files. $datafile is anything when user types in, for example "
          *report.pdf*
          > " .
          >
          > Thanks,
          > David
          >
          > -----Original Message-----
          > From: daymobrew [mailto:daymobrew@y...]
          > Sent: Thursday, February 28, 2002 2:34 PM
          > To: perl-beginner@y...
          > Subject: Re: [PBML] how to?
          >
          >
          > I recommend using the File::Find module.
          > What is the $datafile value likely to be? "report?.pdf"?
          >
          > --- In perl-beginner@y..., "Nguyen, David M" <david.m.nguyen@x>
          wrote:
          > > The problem I have is I capture all lines into array @result and
          > print it
          > > out. How do I change each line in array? Here's my script looks
          > like....
          > >
          > > Thanks,
          > > David
          > >
          > > #!/usr/local/bin/perl -w
          > >
          > >
          > > use CGI qw(param);
          > >
          > >
          > >
          > > $base_url = 'http://softswitch';
          > >
          > > $datafile = param("datafile");
          > >
          > >
          > > print "Content-type: text/html\n\n";
          > >
          > > print "<html><head><title>SoftSwitch Web
          Server</title></head><body>
          > >
          > > <body text=#53761f link=#53761f vlink=#53761f alink=#659942>
          > >
          > > <center><H1><b>SoftSwitch Web Server</b></H1><H2>Results</H2></c
          > > enter><p>";
          > >
          > >
          > >
          > > print "<HR><P>\n";
          > >
          > > print "<pre><font color=#53761F>";
          > > open(CMD, "find /var/apache/htdocs/sonusnotification -name
          $datafile
          > > -print|");

          <snip loads>
        Your message has been successfully submitted and would be delivered to recipients shortly.