Mr. Sudharshan,
Very thanks for your quick reply !
So do you say that it is not possible through any means to change the
directories (since we are moving between the shells) ?
( I was trying to build PERL equivalents of pushd & popd (Unix utilities
by
using cd inside the perl script ). Hence I
vemulakonda uday bhaskar wrote:
hi all
This is the 5'th copy of your mail, please don't send multiple copies
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir
T.S. Ravi Shankar wrote:
Hi all :
Could anyone tell me how I could move between the directories ( or
change the present working directory ) with any perl command ??
I have tried these system '/bin/cd $HOME'; , chdir '$HOME'; ,
exec 'cd $HOME';
After I execute the perl code, the PWD still re
"T.S. Ravi Shankar" wrote:
>
> Hi all :
Hello,
> Could anyone tell me how I could move between the directories ( or
> change the present working directory ) with any perl command ??
>
> I have tried these system '/bin/cd $HOME'; , chdir '$HOME'; ,
> exec 'cd $HOME';
>
> After I execute the
hi all
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir "Cannot be
connected";
$ftp->login("","");
$ftp->get("filename");
this is for file transfer through FT
hi all
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir "Cannot be
connected";
$ftp->login("","");
$ftp->get("filename");
this is for file transfer through FT
hi all
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir "Cannot be
connected";
$ftp->login("","");
$ftp->get("filename");
this is for file transfer through FT
hi all
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir "Cannot be
connected";
$ftp->login("","");
$ftp->get("filename");
this is for file transfer through FT
Hi all :
Could anyone tell me how I could move between the directories ( or
change the present working directory ) with any perl command ??
I have tried these system '/bin/cd $HOME'; , chdir '$HOME'; ,
exec 'cd $HOME';
After I execute the perl code, the PWD still remains unchanged.
If the a
hi all
thanks for the reply. i got the Net::FTP module installed and my
code is working
my code is as follows :
#!usr/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("192.168.255.xxx") or dir "Cannot be
connected";
$ftp->login("","");
$ftp->get("filename");
this is for file transfer through
Mark G <[EMAIL PROTECTED]> writes:
> - Original Message -
> From: "Harry Putnam" <[EMAIL PROTECTED]>
> To: "Mark G" <[EMAIL PROTECTED]>
> Cc: "perl" <[EMAIL PROTECTED]>
> Sent: Sunday, June 29, 2003 4:37 PM
> Subject: Re: make CPAN::Shell->i; print to a filehandle
>
>
>> Mark G <[EMAIL PR
"vemulakonda uday bhaskar" <[EMAIL PROTECTED]> writes:
> hi aall
>
> when i search cpan for downloading Net::FTP, i will be viewing
> something like this :
>
> Net::FTP
> perl - 5.8.0
>
> when i click the "perl - 5.8.0", i go to a page where there is
> download option for perl - 5.8.0, but no whe
Hello Uday,
Net::FTP is a module in libnet distribution. You will have to
download and install libnet to get Net::FTP. Check up
http://search.cpan.org/author/GBARR/libnet-1.16/ for more info.
<<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>> <<<>>>
A "No" uttered from dee
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: "Mark G" <[EMAIL PROTECTED]>
Cc: "perl" <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 4:37 PM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes:
>
> > Well I just tryed runing
> Anyone p[lease tell me from where can i download Net::FTP module
Hi Uday,
Net::FTP is part of libnet which you can download at
http://search.cpan.org/author/GBARR/libnet-1.16/.
Cheers,
Ovid
=
Hire me! http://users.easystreet.com/ovid/personal/resume.html
Ovid
hi aall
when i search cpan for downloading Net::FTP, i will be viewing
something like this :
Net::FTP
perl - 5.8.0
when i click the "perl - 5.8.0", i go to a page where there is
download option for perl - 5.8.0, but no where can i see the
download option for Net::FTP.
Anyone p[lease tell me
Can you change my mailid from [EMAIL PROTECTED] to [EMAIL PROTECTED]
regards
venkat
-Original Message-
From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]
Sent: Fri 27/06/2003 9:14 PM
To: [EMAIL PROTECTED]
Cc:
Subject: Re: Help : Net::F
Steve Grazzini <[EMAIL PROTECTED]> writes:
> On Sun, Jun 29, 2003 at 01:37:39PM -0700, Harry Putnam wrote:
>>
>> From perldoc it appears that something like this should work but it
>> doesn't either:
>> my ($wtr, $wdr, $err, @item, $pid);
>>
>> $pid = open2($wtr, $rdr, 'perl -e ', 'use CPAN;',
On Jun 29, Babale said:
>I'm trying to print the content of a variable only if it contains three
>digits (1 2 3) and blank in between. Can anyone feature out why I don't
>get the right result with both expressions?
>@clean = split (/ +/, $clean);
> $arrlength = @clean;
> $cleanprint = join(" ",
On Mon, Jun 30, 2003 at 06:51:50AM +0800, LI NGOK LAM wrote:
[ Reformatted a bit ]
> FILE:
> for my $file (@filelist) {
>local $_ = $file;
>chomp;
>s/^$root//;
>for my $filter (@FFW, @FFO) {
>next FILE if /$filter/i;
>}
>push @ret, $file;
> }
>
> The problem is i
My first guess is that '.' being a metacharacter u would need to escape it somehow.
something like this:
foreach my $filter_key(@FFW) {
$filter_key = quotemeta($filter_key);
}
-Sharad
-Original Message-
From: LI NGOK LAM [mailto:[EMAIL PROTECTED]
Sent: Sunday, June
foreach my $result(@filelist) # a script snipped was given a file list
{ chomp ($result);
my $com_result = $result;
$com_result =~ s/^$root//;
# $root was a defined var, where using to target the below filter focus
# on the rest of parameter besides from the common
On Sun, Jun 29, 2003 at 01:37:39PM -0700, Harry Putnam wrote:
>
> From perldoc it appears that something like this should work but it
> doesn't either:
> my ($wtr, $wdr, $err, @item, $pid);
>
> $pid = open2($wtr, $rdr, 'perl -e ', 'use CPAN;', 'CPAN::Shell->i;');
This is the equivalent of:
Mark G <[EMAIL PROTECTED]> writes:
> Well I just tryed runing 'CPAN::Shell->i' from the shell, and it failed to
> launch it. Can you run 'CPAN::Shell->i' from your systems default shell ??
> you can try using ppm instead.
Ahh I guess it doesn't know about `use CPAN' in the parent script.
But t
Mark Anthony Sioting [mailto:[EMAIL PROTECTED]
:
: Dear Sirs,
:
:I am new to cgi and i am using perl with it to study.
: What i'm doing now is im making an interactive site
: which requests for the name/text then the perl/cgi
: script will process it upon submitting the submit
: button and t
"Wiggins d'Anconia" <[EMAIL PROTECTED]> writes:
> FAM provides something similar and I believe uses hooks in the linux
> kernel on that system and other means on other *nixes. There even
> exists a Perl module to hook into it (SGI::FAM) good luck getting it
> to work though, I have had some proble
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 11:58 AM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes:
>
> > that would be
> >
> > $pid = open2($wtr, $rdr, 'CPAN::Shell->i');
Thanks Kevin, that did it.
Mark G.
- Original Message -
From: "Kevin Pfeiffer" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 29, 2003 5:45 AM
Subject: Re: refs to hashes
> In article <[EMAIL PROTECTED]>, Mark G wrote:
>
> > Hi All,
> >
> > I need to read in some data a
Mark G <[EMAIL PROTECTED]> writes:
> that would be
>
> $pid = open2($wtr, $rdr, 'CPAN::Shell->i');
>
> foreach( @module ){
> print $wtr "$_\n";
> print "shell output: $_\n" while <$rdr>;
> }
Still not able to get this to fly. Probably something wrong here:
cat IPC.pl
#!/usr/local/bin/pe
Dear Sirs,
I am new to cgi and i am using perl with it to study. What i'm doing now is im
making an interactive site which requests for the name/text then the perl/cgi script
will process it upon submitting the submit button and the output will be displayed via
html. My problem is that i can
I'm trying to print the content of a variable only if it contains three
digits (1 2 3) and blank in between. Can anyone feature out why I don't
get the right result with both expressions?
@clean = split (/ +/, $clean);
$arrlength = @clean;
$cleanprint = join(" ", @clean);
Hi
My apologies for resending this e-mail so many times. I noticed that some of
the attachements could not be viewed. Attached
are the files containing the wrapper C code and also its output.
My apologies for the confusion caused.
The warning message which puzzles me most is "The flags you gave
HI,
I was wondering anyone in this forum does have any ideas(thus far) on this
problem (see attached e-mail below) which I'm trying to solve?
Any help is indeed appreciated.
NOTE: I'm not using "use strict" yet as I'd like to get to firstly get a
working model before before enforcing such good P
In article <[EMAIL PROTECTED]>, Mark G wrote:
> Hi All,
>
> I need to read in some data and put it into a data structure ex:
>
> knife #product name
> 3 #quantity
> 1 #price
>
> I would like to hold in as a hash referancing other hashes ex:
> $ref=read_data();
>
>
>
> s
"Anthony" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi,
>
> I'm really struggling with my scripts for the moment.
> What I have is a config file, for the moment a config.pl
> which i'm trying to change to config.ini using Config::IniFiles module.
> But here is the header of my
Hi All,
I need to read in some data and put it into a data structure ex:
knife #product name
3 #quantity
1 #price
I would like to hold in as a hash referancing other hashes ex:
$ref=read_data();
sub read_data{
open $RD,"< value.dat" || print "could not process request\n"
36 matches
Mail list logo
