RE: FTP server

2008-03-06 Thread Thomas Bätzler
Octavian Rasnita <[EMAIL PROTECTED]> asked: > Can anyone recommend a good FTP server for Linux? > I want to be able to create/delete users dynamicly from a > perl program, assign permissions dynamicly, and it would be > good (although not absolutely > necessary) to have SSL support. I'm not sure

how to iterate through a list of files in a directory and compare them to an index.

2008-03-06 Thread Angus Glanville
Hi, I here is a sample of the problem I am trying to solve. I have an index.txt file that contains two values separated by a pipe symbol like this: junk_file_test1|test1.pdf junk_file_test2|test2.pdf I slurp the file in, open a directory handle and try to compare the value

RE: FTP server

2008-03-06 Thread Bob McConnell
Thank you. I have it already installed and active, but I thought it is just a way of transfering the files by FTP using SSL, using the usernames/passwords of the OS, which I don't want. I want to be able to set a different set of usernames/passwords than those of the system. Is it possible? Th

RE: Trouble with CPAN login

2008-03-06 Thread RICHARD FERNANDEZ
-Original Message- From: Rodrick Brown [mailto:[EMAIL PROTECTED] looks like local user error are you sure the credentials your supplying are correct? Hi Rodrick, The credentials I've configured in CPAN match the ones in my .netrc file which allows me to login successfully from a com

Re: Trouble with CPAN login

2008-03-06 Thread Rodrick Brown
looks like local user error are you sure the credentials your supplying are correct? On Thu, Mar 6, 2008 at 4:13 PM, RICHARD FERNANDEZ <[EMAIL PROTECTED]> wrote: > Hi folks, > > I'm trying to access a local CPAN mirror over FTP and am unable to > connect. > > cpan> reload index > CPAN: Storable lo

Trouble with CPAN login

2008-03-06 Thread RICHARD FERNANDEZ
Hi folks, I'm trying to access a local CPAN mirror over FTP and am unable to connect. cpan> reload index CPAN: Storable loaded ok Going to read /.cpan/Metadata Database was generated on Tue, 26 Feb 2008 05:31:07 GMT CPAN: LWP::UserAgent loaded ok Fetching with LWP: ftp://cpan.arrow.com/CPAN

Re: FTP server

2008-03-06 Thread Octavian Rasnita
From: "Bob McConnell" <[EMAIL PROTECTED]> Looking at a live FC5 system, it has an SFTP server available. You have to enable it by removing the comment tags in /etc/service. Bob McConnell Thank you. I have it already installed and active, but I thought it is just a way of transfering the files

RE: FTP server

2008-03-06 Thread Bob McConnell
-Original Message- From: Octavian Rasnita [mailto:[EMAIL PROTECTED] Sent: Thursday, March 06, 2008 2:43 PM To: Bob McConnell; beginners@perl.org Subject: Re: FTP server From: "Bob McConnell" <[EMAIL PROTECTED]> I would recommend sftp instead, unless all of your traffic will be contained

Re: substr help

2008-03-06 Thread John W. Krahn
Bobby wrote: "John W. Krahn" <[EMAIL PROTECTED]> wrote: Bobby wrote: Bobby wrote: open EXCLUDE, '<', $exclude_psc or die "Could not open '$exclude_psc' $!"; while ( ) { next if $. == 1; # exclude header chomp; my ($excpsc,$keyword) = split /\|/; %ex_psc = (exclpsc=>$excps

Re: FTP server

2008-03-06 Thread Octavian Rasnita
From: "Bob McConnell" <[EMAIL PROTECTED]> I would recommend sftp instead, unless all of your traffic will be contained on a local network. What distribution are you using? Many come with a server that just needs to be enabled. Bob McConnell I use Fedora. Does its FTP server offer the asked feat

Re: substr help

2008-03-06 Thread Bobby
John, You are right, it's only reading the last record in my exclude_psc.txt file. %ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword ); So how would i change the above code to have it read through all of my records in exclude_psc.txt file. I need to do the comparison below before printing to

RE: FTP server

2008-03-06 Thread Bob McConnell
I would recommend sftp instead, unless all of your traffic will be contained on a local network. What distribution are you using? Many come with a server that just needs to be enabled. Bob McConnell -Original Message- From: Octavian Rasnita [mailto:[EMAIL PROTECTED] Sent: Thursday, March

FTP server

2008-03-06 Thread Octavian Rasnita
Hi, Can anyone recommend a good FTP server for Linux? I want to be able to create/delete users dynamicly from a perl program, assign permissions dynamicly, and it would be good (although not absolutely necessary) to have SSL support. Thank you very much. Octavian -- To unsubscribe, e-mail:

Re: substr help

2008-03-06 Thread Bobby
That works, thanks Tom! Tom Phoenix <[EMAIL PROTECTED]> wrote: On Thu, Mar 6, 2008 at 8:31 AM, Bobby wrote: > Use of uninitialized value in concatenation (.) or string at generatePsc.pl > line 48, line 5. Is this what you seek? next unless defined $PSC; It can also be quite educational

Re: substr help

2008-03-06 Thread Tom Phoenix
On Thu, Mar 6, 2008 at 8:31 AM, Bobby <[EMAIL PROTECTED]> wrote: > Use of uninitialized value in concatenation (.) or string at generatePsc.pl > line 48, line 5. Is this what you seek? next unless defined $PSC; It can also be quite educational to use the Perl debugger to step through a pr

Re: substr help

2008-03-06 Thread Bobby
John, I don't understand, why would that only get me the last record in the text file? Is there a better way to do that? I'm still kinda new with Perl, don't use it enough. %ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword ); "John W. Krahn" <[EMAIL PROTECTED]> wrote: Bobby wrote: > Could so

Re: substr help

2008-03-06 Thread Bobby
Below is what i get when i tried to print just the $PSC variable. So the $PSC column has the value of (PSC, FCSD2, ADEK1, ADEZ2). I did put in a check for alphanumeric in $PSC if ($PSC =~ /^[a-zA-Z0-9]+$/) before doing the substr but still have same issue. What i'm trying to do is to look for

Re: Making variables private

2008-03-06 Thread Jay Savage
[please don't top post] On Thu, Mar 6, 2008 at 10:50 AM, yitzle <[EMAIL PROTECTED]> wrote: > I don't know much about how Perl deals with this stuff, but what > you've done is made a copy of the pointer/reference. > Both variables are referencing the same memory/hash. > What you want to do is co

Re: Making variables private

2008-03-06 Thread yitzle
On Thu, Mar 6, 2008 at 10:50 AM, yitzle <[EMAIL PROTECTED]> wrote: > I don't know much about how Perl deals with this stuff, but what > you've done is made a copy of the pointer/reference. > Both variables are referencing the same memory/hash. > What you want to do is copy the hash, not copy the

Re: Making variables private

2008-03-06 Thread Gunnar Hjalmarsson
Dermot wrote: # Make a local copy of HoH my $ref = $fileSizes; $fileSize is a reference to the HoH, and $ref is nothing but another reference to the very same data structure. You probably want to study the FAQ entry "perldoc -q copy". -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bi

Re: Making variables private

2008-03-06 Thread Chas. Owens
On Thu, Mar 6, 2008 at 10:54 AM, Chas. Owens <[EMAIL PROTECTED]> wrote: snip > use Storable qw; snip > my $copy = thaw(freeze($fileSize)); snip I should really read the docs before I post. This code can be simplified to use Storable qw; my $copy = dclone($fileSize); -- Chas. Owens wonkden.n

Re: Making variables private

2008-03-06 Thread Chas. Owens
On Thu, Mar 6, 2008 at 10:42 AM, Dermot <[EMAIL PROTECTED]> wrote: snip > # Make a local copy of HoH > my $ref = $fileSizes; > > # remove a hash via key c > delete $ref->{'c'}; snip The refs $ref and $fileSizes point to the same hash. What you need to do is make a copy. There are several way

Re: Making variables private

2008-03-06 Thread yitzle
I don't know much about how Perl deals with this stuff, but what you've done is made a copy of the pointer/reference. Both variables are referencing the same memory/hash. What you want to do is copy the hash, not copy the reference to it. I /think/ this ought to work: my %hash = %{$fileSize}; __CO

Making variables private

2008-03-06 Thread Dermot
Hi, I have a file with a few settings in, a hash of settings. EG: use strict; use warnings; our @EXPORT = qw($fileSize); our $fileSize = { a=> {name => 'small', size => 50}, b=>{name=> 'medium', size => 75,} c=>{name=> 'large', size => 100} }; These settings are used by several different progr

Re: substr help

2008-03-06 Thread Chas. Owens
On Wed, Mar 5, 2008 at 11:57 PM, Richard Lee <[EMAIL PROTECTED]> wrote: snip > Also, can you explain why below is wrong? snip > func([EMAIL PROTECTED]); > sub func { > my $aref = shift; > my $oref = "$aref"; # WRONG <- why is it wrong? > }

Re: debugging code that freezes

2008-03-06 Thread Peter Scott
On Thu, 06 Mar 2008 00:13:02 -0700, Joseph L. Casale wrote: > In another list, I am baffled by the instability of a Perl script that > freezes after some time for a user. What can be done to run a Perl > script in a debug like mode such that all system calls could be logged so that > one could see

RE: debugging code that freezes

2008-03-06 Thread Thomas Bätzler
Joseph L. Casale <[EMAIL PROTECTED]> asked: > In another list, I am baffled by the instability of a Perl > script that freezes after some time for a user. What can be > done to run a Perl script in a debug like mode such that all > system calls could be logged so that one could see what was > a