[15854] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 3267 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 6 18:06:09 2000

Date: Tue, 6 Jun 2000 15:05:33 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <960329133-v9-i3267@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Tue, 6 Jun 2000     Volume: 9 Number: 3267

Today's topics:
        [HELP] Net::FTP, Mime::Lite and receivers list <mitiste@charlie.iit.edu>
    Re: [HELP] Net::FTP, Mime::Lite and receivers list <mitiste@charlie.iit.edu>
    Re: [HELP] Net::FTP, Mime::Lite and receivers list (Eric Bohlman)
    Re: Activeware perl 313 and makemake.pm <abe@ztreet.demon.nl>
    Re: Any Zmodem module? dial, connect, upload and discon <Petri_member@newsguy.com>
    Re: Awsome Site <nospam@devnull.com>
        Berkeley DB concurrent access <yaya.nospam@yps.org>
    Re: CGI Forms: Save File Dialog instead of processing f prakash_ojha@my-deja.com
    Re: counter script in Perl (Abigail)
    Re: create Hash from two arrays? <nospam@devnull.com>
    Re: create Hash from two arrays? <nospam@devnull.com>
        Crypt-DES won't compile <noah@coutureconsulting.com>
    Re: END{} alternative? <shah@typhoon.xnet.com>
        eventlog <boogiemonster@usa.net>
    Re: eventlog <carvdawg@patriot.net>
    Re: Finding partial match (John Gehman)
    Re: FTP Question <sariq@texas.net>
    Re: FTP Question <red_orc@my-deja.com>
    Re: FTP Question <steve@gte.net>
    Re: FTP Question <andersen+@rchland.ibm.com>
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Tue, 06 Jun 2000 12:31:09 -0500
From: mitiste <mitiste@charlie.iit.edu>
Subject: [HELP] Net::FTP, Mime::Lite and receivers list
Message-Id: <393D355D.DC6F5B91@charlie.iit.edu>

	I have written a Perl program which used to do the followings:

- ftp to a mainframe and get two files (ASCII);
- one of the files contains a couple of lines which have addresses in
the format:
	xxx@company.com
one per line;

- I parse the file and grab these lines which have the addresses ALWAYS
as I expect
them (in the proper xxx@yyy.com format - no need to check anything
here), and build a list of those:

	@tolist=(@tolist, $line)

as I move from line to line;

- I build then an email message using these addresses for the receiving
end:

	$mime = new MIME::Lite(From => $from, 
		To => [@to],
                Subject => "$title",
		Type => 'text/plain',
		Data => $main_message);

and use the second file as an attachment (no need to show the code, this
aspect is
not relevant to what my problem is).

	And here comes the story: when running this program under NT version of
Perl, 
all users in the @to list get the message - when running the same
program under Perl in
Linux, only the FIRST person in the @to list gets it (!!!), even though
the message comes
to this person with ALL receipients listed in the To: line of the email,
comma separated:

xxx@company.com, yyy@company1.com, zzz@company2.com

	I haven't been able to check the format of the emails I used to get
when sent from
the NT Perl, as my NT machine died (nothing surprising here), but for
the Linux ones I see the comma separated list as having a space between
the comma at the end of one receipient, and beginning of another one (I
don't even know if this matters or not) ... other than that - totally
clueless ... any ideas, please ?!?

	TIA,
	Stef




------------------------------

Date: Tue, 06 Jun 2000 13:02:34 -0500
From: mitiste <mitiste@charlie.iit.edu>
Subject: Re: [HELP] Net::FTP, Mime::Lite and receivers list
Message-Id: <393D3CBA.D8F4D5A6@charlie.iit.edu>

	Minor correction - the line building the @tolist doesn't have a space
in 
either the NT or Linux version - my typo in the original message -
should be:
	@tolist=(@tolist,$line)
So - the problem is valid, and there is NO space between @tolist, and
$line.
	Also - the original had the email with [@to] - it is [@tolist] actually
(this is what you get if you don't copy and paste, but rather try to
re-type the
stuff) ... so still have the problem - obviously. Sorry for the
confusion - the real program
has no syntax errors
	Stef

mitiste wrote:
> 
>         I have written a Perl program which used to do the followings:
> 
> - ftp to a mainframe and get two files (ASCII);
> - one of the files contains a couple of lines which have addresses in
> the format:
>         xxx@company.com
> one per line;
> 
> - I parse the file and grab these lines which have the addresses ALWAYS
> as I expect
> them (in the proper xxx@yyy.com format - no need to check anything
> here), and build a list of those:
> 
>         @tolist=(@tolist, $line)
> 
> as I move from line to line;
> 
> - I build then an email message using these addresses for the receiving
> end:
> 
>         $mime = new MIME::Lite(From => $from,
>                 To => [@tolist],
>                 Subject => "$title",
>                 Type => 'text/plain',
>                 Data => $main_message);
> 
> and use the second file as an attachment (no need to show the code, this
> aspect is
> not relevant to what my problem is).
> 
>         And here comes the story: when running this program under NT version of
> Perl,
> all users in the @to list get the message - when running the same
> program under Perl in
> Linux, only the FIRST person in the @to list gets it (!!!), even though
> the message comes
> to this person with ALL receipients listed in the To: line of the email,
> comma separated:
> 
> xxx@company.com, yyy@company1.com, zzz@company2.com
> 
>         I haven't been able to check the format of the emails I used to get
> when sent from
> the NT Perl, as my NT machine died (nothing surprising here), but for
> the Linux ones I see the comma separated list as having a space between
> the comma at the end of one receipient, and beginning of another one (I
> don't even know if this matters or not) ... other than that - totally
> clueless ... any ideas, please ?!?
> 
>         TIA,
>         Stef




------------------------------

Date: 6 Jun 2000 19:46:13 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: [HELP] Net::FTP, Mime::Lite and receivers list
Message-Id: <8hjke5$1q0$3@slb2.atl.mindspring.net>

mitiste (mitiste@charlie.iit.edu) wrote:
: - I parse the file and grab these lines which have the addresses ALWAYS
: as I expect
: them (in the proper xxx@yyy.com format - no need to check anything
: here), and build a list of those:
: 
: 	@tolist=(@tolist, $line)

That's a rather inefficient way of doing it, as it has to make an extra 
copy of the whole array each time.  Use

push @tolist, $line;

instead.

: - I build then an email message using these addresses for the receiving
: end:
: 
: 	$mime = new MIME::Lite(From => $from, 
: 		To => [@to],
:                 Subject => "$title",
: 		Type => 'text/plain',
: 		Data => $main_message);
: 
: and use the second file as an attachment (no need to show the code, this
: aspect is
: not relevant to what my problem is).
: 
: 	And here comes the story: when running this program under NT version of
: Perl, 
: all users in the @to list get the message - when running the same
: program under Perl in
: Linux, only the FIRST person in the @to list gets it (!!!), even though
: the message comes
: to this person with ALL receipients listed in the To: line of the email,
: comma separated:

You don't show us the part of your code where you actually send the 
message: it sounds like your problem may be related to differences in the 
mail agents you're using to send the mail.



------------------------------

Date: Tue, 06 Jun 2000 21:08:53 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Activeware perl 313 and makemake.pm
Message-Id: <ilhqjso8nf432qbeives3tskfctcp90ht4@4ax.com>

On Tue, 6 Jun 2000 16:20:30 +0100, "Paul D.Smith" <pds@x-datcon.co.uk>
wrote:

> Anyone hit this?  I have tried to install some Perl libraries (libnet) but
> have found that ExtUtils/MakeMaker.pm is absent.  This is with the Windows
> NT Activeware port of Perl (build 313).  Anyone know the "correct" solution
> to this?
> 
> FYI: I cannot upgrade as this is the "official and supported" version of
> Perl which we currently use. No doubt in time we'll upgrade but for now,
> this is what I have :-).
Well since it is official and *supported*, ask whoever supports this
rather old version. If they won't help you, it's not supported I would
say.
In that case go to: http://www.activestate.com/ and get the 522 or 613
build.

There are reasons for not using perl 5.003 anyway :-)

-- 
Good luck,
Abe


------------------------------

Date: 6 Jun 2000 13:34:10 -0700
From: Petri Oksanen <Petri_member@newsguy.com>
Subject: Re: Any Zmodem module? dial, connect, upload and disconnect
Message-Id: <8hjn82$2qj3@edrn.newsguy.com>

In article <20000606085032.29184.00001864@ng-fd1.aol.com>, bbirthisel@aol.com
says...

> I did look at the zmodem source when I wrote
> Win32::SerialPort.

That's a brilliant module, but I can't get it to work on ActivePerl 613, since
it uses the non-613 compatible Win32::API module.

Try 'perl -MWin32::API -we ""' and watch API.DLL crash and burn on Win9x.

Maybe you already know about this and have a workaround for it?
Please let me know if you do.

I have notified Aldo Calpini about the status of his Win32::API, but haven't
recieved a reply yet.


Petri Oksanen



------------------------------

Date: 6 Jun 2000 18:58:18 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: Awsome Site
Message-Id: <8hjhka$gqs$3@216.155.32.134>

In article <166S204E.75IN556Z@yahoo.com>, paper_rod@yahoo.com wrote:

 | I came across this site and wondered if anyone else has seen it.  Its 
 | awsome!
 | 
 | 
 |  http://216.15.169.227
 | 

you mean this site?

<nslookup:227.169.15.216.in-addr.arpa/*>

Authoritative answer:
 227.169.15.216.in-addr.arpa  PTR   86400   pic1stop.com

Authority:
     169.15.216.in-addr.arpa  NS    86400   ns1.cybercon.com      
216.15.129.2
     169.15.216.in-addr.arpa  NS    86400   ns2.cybercon.com      
216.15.129.3
NSLookup normal completion.

can't say that I have, but it sounds distinctly like porno spam.

 | If You Received this message in error we apologize.
 | To Be REMOVED from this list please email us
 | NOTE: Type REMOVE in the Subject Line when requesting
 | To be removed. We apologize for any inconvenience
 
lame. very lame. 

why don't you do us all a favor and give up on Usenet as an advertising 
forum? 

Posting an advert to Usenet is the quickest and MOST successful means of 
BEING IGNORED.

-- 
send mail to mactech (at) webdragon (dot) net instead of the above address. 
this is to prevent spamming. e-mail reply-to's have been altered 
to prevent scan software from extracting my address for the purpose 
of spamming me, which I hate with a passion bordering on obsession.  


------------------------------

Date: Tue, 06 Jun 2000 15:58:36 -0600
From: "yaya" <yaya.nospam@yps.org>
Subject: Berkeley DB concurrent access
Message-Id: <YBd%4.158751$MB.2940230@news6.giganews.com>

I have 2 programs, a server and a client accessing a db file.  This file is
created by the server and is checked every minute or so by the server.

I would like the client to be able to insert and delete from the db file, however
when it ties it to a hash, the hash contains nothing.  I am using locks so that's
not the problem.  Isn't it OK to have 2 processes accessing the same db file
as long as locking is used to control access?

Please help,
yaya



------------------------------

Date: Tue, 06 Jun 2000 17:59:52 GMT
From: prakash_ojha@my-deja.com
Subject: Re: CGI Forms: Save File Dialog instead of processing form data
Message-Id: <8hje6c$bo5$1@nnrp1.deja.com>

do you have execute permissions!!! It has happened to me before also.
check permissions.


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: 6 Jun 2000 19:21:52 GMT
From: abigail@arena-i.com (Abigail)
Subject: Re: counter script in Perl
Message-Id: <8hjj0f$sm$1@news.panix.com>

On Tue, 6 Jun 2000 11:52:04 -0400, M.E. <eldridgem@ihorizons.net> wrote:
++ 
++ I'm trying to use a simple graphical counter on a web page on a linux box.
++ The html I'm using to call the counter program is:
++ 
++ <IMG SRC="cgi-bin/counter.pl">
++ 
++ All that shows up is a broken graphic icon and not the counter images.
++ 
++ I'm wondering if there's something I'm missing in regards to the above tag.
++ Should it be coded differently? Has anyone had success with such a thing?

Well, if the output isn't what you want it to be, then yes, it should
be coded differently.

Do you have any Perl question?


Abigail


------------------------------

Date: 6 Jun 2000 18:25:01 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: create Hash from two arrays?
Message-Id: <8hjflt$gqs$1@216.155.32.134>

In article <39393FB2.91F6D93F@backwoods.org>, MC <mc@backwoods.org> 
wrote:

 | I need to create a hash from two arrays, one containing the keys, the 
 | other
 | containing the data.
 | 
 | I have the following code, but is there a simpler/faster way....
 | 
 | my (@keys, @data, %hash);
 | 
 | ... code which populates @keys and @data from a file ...
 | 
 | for ($f=0;$f<=$#keys;$f++) { $hash{$keys[$f]} = $data[$f] };
 

    for (0 .. $#data) { $hash{$keys[$_]} = $data[$_] };

and I think since perl 5.005 you can do 

    $hash{$keys[$_]} = $data[$_] for (0 .. $#data);

and lower your golf score a little. 

I do suggest using more descriptive words than hash, keys, and data, 
since they tend to conflict slightly with blah blah blah etc etc.. 

HTH

-- 
send mail to mactech (at) webdragon (dot) net instead of the above address. 
this is to prevent spamming. e-mail reply-to's have been altered 
to prevent scan software from extracting my address for the purpose 
of spamming me, which I hate with a passion bordering on obsession.  


------------------------------

Date: 6 Jun 2000 18:27:16 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: create Hash from two arrays?
Message-Id: <8hjfq4$gqs$2@216.155.32.134>

In article <8hgmlr$2m9$7@news.panix.com>, abigail@arena-i.com wrote:

 |     @hash {@keys} = @data;

Interesting.. I never realized you could so easily populate a hash given 
properly stacked arrays. 

guess you can ignore my previous post. :)

-- 
send mail to mactech (at) webdragon (dot) net instead of the above address. 
this is to prevent spamming. e-mail reply-to's have been altered 
to prevent scan software from extracting my address for the purpose 
of spamming me, which I hate with a passion bordering on obsession.  


------------------------------

Date: Tue, 6 Jun 2000 12:55:34 -0700
From: "Noah Couture" <noah@coutureconsulting.com>
Subject: Crypt-DES won't compile
Message-Id: <aBc%4.7587$bH5.483487@nntp1.onemain.com>

Hello,

I'm trying to install the Crypt-DES-1.0 module on a Solaris 5.7 machine.  I
get this error:

sh-2.03$ make
gcc -c  -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FIL
E_OFFSET_BITS=64 -O      -DVERSION=\"1.0\"  -DXS_VERSION=\"1.0\" -fPIC -I/us
r/local/lib/perl5/5.6.0/sun4-solaris/CORE  DES.c
DES.xs: In function `XS_Crypt__DES_crypt':
DES.xs:50: `sv_undef' undeclared (first use in this function)
DES.xs:50: (Each undeclared identifier is reported only once
DES.xs:50: for each function it appears in.)
*** Error code 1
make: Fatal error: Command failed for target `DES.o'

I also had to change

#incldue <machine/types.h>
to
#include <sys/types.h>

in des.h, and change u_int to uint in several places DES.xs.

Any help will be greatly appreciated.

thanks
noah





------------------------------

Date: 6 Jun 2000 18:41:31 GMT
From: Hemant Shah <shah@typhoon.xnet.com>
Subject: Re: END{} alternative?
Message-Id: <8hjgkr$o2p$1@flood.xnet.com>

While stranded on information super highway jason wrote:
:)Hemant Shah writes ..
:)>  I would like to create a lock directory so that only one instance of my 
:)>  program runs at time. I would like to automatically remove the lock file
:)>  when program exits normally or is interupted via <Ctrl>-C or other signals.
:)
:)there are better ways of doing locking .. try
:)
:)  perldoc -f flock


  I looked at flock, but I cannot use it because only one instance of the
  program is allowed across the network. This program updates the files on
  a NFS filesystem, so I need to create a lock directory, and make sure it is
  removed when program exits (normally or killed by interrupt).

:)
:)>When I start the first instance, the lock directory is created. While first
:)>instance is running if I start second instance, the program exits with error
:)>message, but the lock directory is deleted.
:)>
:)>The end block is not yet called, why does it delete the lock directory?
:)
:)as you asked it to be .. from the perltoot documentation
:)
:)  perldoc perltoot
:)
:)"This works just like the END function in traditional modules, meaning 
:)that it gets called whenever your program exits unless it execs or dies 
:)of an uncaught signal."
:)
:)ie. the END sub gets called when you do an exit()
:)
:)>If I interrupt the program with <CTRL>-C, the lock directory is not deleted.
:)
:)because (unless you've left out some important part of your code) it's 
:)an uncaught signal .. sounds exactly in line with the documentation
:)
:)>I am looking for something like a trap statement in Korn shell or an atexit()
:)>function in C.
:)
:)check out Signals in
:)
:)  perldoc perlipc
:)

  Same reason as above.

:)what you really want is just to have the unlocking be the last statement 
:)in your normal program flow (not in a special END sub)
:)
:)-- 
:) jason - elephant@squirrelgroup.com -


Here is my solution which works for me. This is a small part of the whole
script:


---------cut-------------cut-------------cut-------------cut----
sub MyExitProc($)
{
   &RemoveLockFile;
   exit(@_);
}


sub TrapSignals
{
   $SIG{HUP} = sub{ MyExitProc(1) };
   $SIG{INT} = sub{ MyExitProc(1) };
   $SIG{ABRT} = sub{ MyExitProc(1) };
   $SIG{TERM} = sub{ MyExitProc(1) };
   $SIG{CHLD} = sub{ MyExitProc(1) };
}


sub CreateLockFile
{  
   if(!mkdir($LockDir, 0777))
   {
      open(Infile, "< $LockFile") || die "Cannot open lock file for read.\n";
      while (<Infile>)
      {
         print $_;
      }
      close(Infile);
      exit(1);
   }
   
   &TrapSignals;

   $CurrentDate = (localtime);
   open(OutFile, "> $LockFile") || die "Cannot open lock file for write.\n";
   print OutFile "$ExeName is locked because $OrigUser has been using it since $CurrentDate. Try again later.\n"; 
   close(OutFile);
}

sub RemoveLockFile
{ 
   unlink($TmpFile);
   unlink($LockFile);
   rmdir($LockDir);
}  


######################################################
#  Main Program
######################################################
&CreateLockFile;
# Do something.
&RemoveLockFile;
MyExitProc(0);

---------cut-------------cut-------------cut-------------cut----


-- 
Hemant Shah                           /-------------------\    ^~~~~^
E-mail: NoJunkMailshah@xnet.com       |TECHNOLOGY         |    |    |
                                      |No place for wimps |   o|-OO-|o
TO REPLY, REMOVE NoJunkMail           |          -Dilbert |--- | () |
FROM MY E-MAIL ADDRESS.               \-------------------/    |    |
-----------------[DO NOT SEND UNSOLICITED BULK E-MAIL]------------------
I haven't lost my mind,                Above opinions are mine only.
it's backed up on tape somewhere.      Others can have their own.


------------------------------

Date: Tue, 6 Jun 2000 14:53:20 -0700
From: "J. Joseph Yusko" <boogiemonster@usa.net>
Subject: eventlog
Message-Id: <8hjhh2$516$1@usenet01.srv.cis.pitt.edu>

trying to create a perl script that will backup the eventlog and clear it
but i keep coming into some kind of I/O issues.  it backs up the system and
application and clears it perfectly fine but when it gets to security it get
the following message "Could not backup and clear the Security EventLog on
(server.name) (Overlapped I/O operation is in progress)"
  Can anyone tell me what i'm doing wrong other then coding wrong?  Any help
would be greatly appreciated.

joe




------------------------------

Date: Tue, 06 Jun 2000 17:33:32 -0400
From: H C <carvdawg@patriot.net>
Subject: Re: eventlog
Message-Id: <393D6E2C.37B0B4DB@patriot.net>

Could you post info, such as system, Perl version and the code you are using?

Also, I have some scripts that you may be interested in...

http://www.patriot.net/users/carvdawg/perl.html

"J. Joseph Yusko" wrote:

> trying to create a perl script that will backup the eventlog and clear it
> but i keep coming into some kind of I/O issues.  it backs up the system and
> application and clears it perfectly fine but when it gets to security it get
> the following message "Could not backup and clear the Security EventLog on
> (server.name) (Overlapped I/O operation is in progress)"
>   Can anyone tell me what i'm doing wrong other then coding wrong?  Any help
> would be greatly appreciated.
>
> joe

"J. Joseph Yusko" wrote:

> trying to create a perl script that will backup the eventlog and clear it
> but i keep coming into some kind of I/O issues.  it backs up the system and
> application and clears it perfectly fine but when it gets to security it get
> the following message "Could not backup and clear the Security EventLog on
> (server.name) (Overlapped I/O operation is in progress)"
>   Can anyone tell me what i'm doing wrong other then coding wrong?  Any help
> would be greatly appreciated.
>
> joe



------------------------------

Date: 6 Jun 2000 18:35:49 GMT
From: jdg28@pantheon.yale.edu (John Gehman)
Subject: Re: Finding partial match
Message-Id: <8hjga5$p3j$1@news.ycc.yale.edu>

If I understand your question properly, you are trying to replace
the following line with just 'Melissa' (without quotes), extracted from
the line, and you're using the if ... line to do it. 

: >>> Virus 'Melissa' found in file filename
: if( s/.* (Virus|Virus fragment|Identity) [\'`\[]([^\'\]]).*/$2/ )

I wouldn't guess this expression would match your logfile line --
you're looking to match: zero or more anythings, followed by a space, 
followed by 'Virus' or 'Virus fragment' or 'Identity' (and writing this to
read-only variable $1), followed immediately by either single quote,
backtick, or [, 
followed immediately by single quote, or ] (and writing it to read only $2
variable) (incidentally, I think ^ is meaningless here), then substituting
the whole line with whichever of ' or ] matched.

I think you'd be after something more like

s/.*(?:Virus|Virus fragment|Identity)[\'\`\]](\w+)[\'\]]/$1/

--which I haven't tested--

j.


------------------------------

Date: Tue, 06 Jun 2000 13:05:48 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: FTP Question
Message-Id: <393D3D7C.9BFC258F@texas.net>

SteveSingletary wrote:
> 
> I'm relatively new to Perl, but very familiar with UNIX- so with that in
> mind here's the problem.  I need to FTP a file away to another server.  I am
> on a UNIX server.

perldoc Net::FTP

- Tom


------------------------------

Date: Tue, 06 Jun 2000 19:07:35 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: FTP Question
Message-Id: <8hji5a$ev7$1@nnrp1.deja.com>

In article <g%a%4.1185$ee7.95872@dfiatx1-snr1.gtei.net>,
  "SteveSingletary" <steve@gte.net> wrote:
> I'm relatively new to Perl, but very familiar with UNIX- so with that
in
> mind here's the problem.  I need to FTP a file away to another server.

then you probably want to look into the Net::FTP module.


Sent via Deja.com http://www.deja.com/
Before you buy.


------------------------------

Date: Tue, 06 Jun 2000 19:41:36 GMT
From: "SteveSingletary" <steve@gte.net>
Subject: Re: FTP Question
Message-Id: <Qtc%4.1691$ee7.122523@dfiatx1-snr1.gtei.net>

Ok - I tried NET::FTP and it works.  I have my website on another host and I
was not sure if they had that module loaded - but apparently they do.  The
next question is where can I get the syntax for NET::FTP.  I can't seem to
find it anywhere.
Thanks

Steve
SteveSingletary <steve@gte.net> wrote in message
news:g%a%4.1185$ee7.95872@dfiatx1-snr1.gtei.net...
> I'm relatively new to Perl, but very familiar with UNIX- so with that in
> mind here's the problem.  I need to FTP a file away to another server.  I
am
> on a UNIX server.  Here is the code that I use in UNIX:
>
> /usr/bin/ftp -nv << EOF >>./$scriptName.log 2>&1
> open $target_server
> user $target_userid $target_pswd
> $target_function $XL_INFNAME $target_filename_snd
> bye
> EOF
>
> I'm not sure if I need to use the exec command or not, and I'm not sure
> about the exact syntax for the "`' characters.  Can somebody help???
> Thanks,
>
> Steve
>
>




------------------------------

Date: Tue, 06 Jun 2000 15:03:41 -0500
From: "Paul R. Andersen" <andersen+@rchland.ibm.com>
Subject: Re: FTP Question
Message-Id: <393D591D.24FCED79@rchland.ibm.com>

SteveSingletary wrote:
> 
> Ok - I tried NET::FTP and it works.  I have my website on another host and I
> was not sure if they had that module loaded - but apparently they do.  The
> next question is where can I get the syntax for NET::FTP.  I can't seem to
> find it anywhere.
> Thanks
> >
At a minimum there is POD within the FPT.pm module.
-- 
Paul Andersen
-- I can please only ONE person per day.
-- Today is NOT your day.
-- Tomorrow isn't looking good either.


------------------------------

Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V9 Issue 3267
**************************************


home help back first fref pref prev next nref lref last post