Hey All,
I just have a really quick regex question.
I have the following code...
next if $username =~ /^ruby/;
will that strip and go to the next if statment if $username = ruby?
Regards,
Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Curtis Poe <[EMAIL PROTECTED]> writes:
> foreach my $user (keys %users) {
> foreach my $name (keys %{ $users{$user} } ) {
> print $users{$user}{$name},"\n";
> }
> }
>
> Note how I wrap $users{$name} in %{...} to tell Perl that I am using a hash ref here.
A way to break this down
First problem you have is trying to run script on something like Novell
Netware.
It is a network server, not a web server.
I made another reply regarding this.
CGI requires an OS such as Windows, Linux/UNIX/BSD/Solaris?(I'm not
familiar with Solaris), and so on.
- Original Message -
F
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, December 18, 2001 6:42 PM
Subject: Re: Should I use Perl?
> Raymond Lam wrote:
> >
> > hi there, i've just started reading the book Learning Perl and
> > I'm amazed what perl can do.
>
Raymond Lam <[EMAIL PROTECTED]> writes:
> Currently, I'm trying to find out a way to automatically
> save email messages (from MS Exchange / Pop3) to text
> files in a directory.
I'd be less worried about Perl than about MS *anything*.
Perl could do the job, but I doubt that MS provides hooks
fo
"James Kelty" <[EMAIL PROTECTED]> writes:
> Well, I thought of that earlier, but I also thought that I
> was not guaranteed that the order of an array was
> unreliable, so I may not actually be getting the 'last' of
> the file. True or untrue ?
By definition:
Arrays are ordered.
Diamond
I do know that Novell is a fileserver network, and that's about all.
You need Windows or UNIX/Linux/BSD to run Apache Server.
- Original Message -
From: "Shawn" <[EMAIL PROTECTED]>
To: "Chris Zampese" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, December 18, 2001 6:25 PM
Subj
> Folks,
>
> I have a date string as such
>
> Thu Dec 10 2001
> Tue Dec 8 2001
> Wed Dec 7 2001
>
> I have two hashes created for day_of_week and month_of_year
> To get the numeric value for the month and week day #.
>
> The problem I am having is getting the split right.
> I have
> My ($wda
"Mike Gargiullo" <[EMAIL PROTECTED]> writes:
> open (MAIL, "|/usr/sbin/sendmail -t -oi") || die "Can't fork for
> sendmail:$!\n";
> print MAIL < From: from_email_address
> To: to_email_address
> Subject: subject here
> Date: date here
> MIME-Version: 1.0
> Content-Type: multipart/alternative;
>
Folks,
I have a date string as such
Thu Dec 10 2001
Tue Dec 8 2001
Wed Dec 7 2001
I have two hashes created for day_of_week and month_of_year
To get the numeric value for the month and week day #.
The problem I am having is getting the split right.
I have
My ($wday,$month,$mday,$year) = spli
Raymond Lam wrote:
>
> hi there, i've just started reading the book Learning Perl and
> I'm amazed what perl can do.
>
> Currently, I'm trying to find out a way to automatically save
> email messages (from MS Exchange / Pop3) to text files in a
> directory.
>
> I am planning to write something
James Kelty wrote:
>
> Is there a document in perldoc that tells the best way to get the last line
> of a file? Below is my usual code for reading a file.
>
> #!/usr/bin/perl -w
>
> $file = qq(/some/file/);
>
> open FILE, "$file" or die "Cannot open file: $!\n";
>
> while() {
>do somethin
Hey Chris,
I am not very familiar with Novell, but I don't think it is a webserver.
Apache is an excellent server though and it is free at apache.org. Not to
mention the docs are very good, they have a version for almost every
platform, and there is a ton of help on the web for it. But no matte
Brian Blake wrote:
>
> Hi,
Hello,
> I am very new to PERL (as you will be able to tell!!!), can you please
> explain my question below?
>
> When I run this piece of code (below) I am looking for more than one word
> to be etered by the user and then the words that were entered are returned
> t
Jeff 'Japhy' Pinyan wrote:
>
> On Dec 18, Lance Prais said:
>
> >I tried to use '((substr($line, 42, 7)' which the text I want to include but
> >it did not show the output.
>
> You can't put code inside a quoted string and expect it to evaluate.
"@{[ substr $line, 42, 7 ]}"
:-)
John
--
use
--_=_NextPart_001_01C187DA.2DCE2730
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
[please _DON'T_ post using HTML]
> Sajid Khan wrote:
>
> Hi Guys
Hello,
> I am running into an issue trying to determine whether a file exists
> when the name varies.
> The file ha
"Jonathan e. paton" wrote:
>
> Agreed, however there is more that can be done. You want
> to filter out non-matching lines ASAP, so you apply full
> substitutions when there is a good chance of needing one.
>
> I suggest the following for the loop:
>
> while(defined()) {
>
> # Limit subst
Sorry for the 'newbie' question, but I am going bald from pulling my hair out, so I
had to ask some people with brains...
I am trying to run a CGI script on an Intranet. Basically the user opens a form
in the intranet and when they submit it a modified copy (ie slightly different layout)
i
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote:
> Hello All,
>
> I am still having trouble printing out a second lot of hash keys in a
> hash of a hash. Here is what I have so far. Any ideas or suggestions
> will be greatly appriciated...
>
> %users = (
>'user1' => {
>
Kredler Stefan wrote:
>
> Hi all,
Hello,
> a while ago I wrote a little unit conversion I am quite happy with. Just out
> of interest: is there a more elegant way to do it?
I don't know about elegant but I know you can make it a lot shorter.
> And maybe even more interesting: what approach
>
Hello All,
I am still having trouble printing out a second lot of hash keys in a
hash of a hash. Here is what I have so far. Any ideas or suggestions
will be greatly appriciated...
%users = (
'user1' => {
'Fullname1' => 'YES'
},
On Sat, Dec 15, 2001 at 03:14:25PM -0500, Michael R. Wolf wrote:
> In C, there are a bunch of macros (is_visable, is_num,
> is_alpha, etc..). They were just some interesting bit mask
> magic to a table full of OR'd flags. Cute algorithm,
> actually. Since it used CPP, it didn't incur the overhe
Just for the record, I have changed that filter, and set up one as per the
suggestion to use number and dollar sign.
Trying to learn what to filter and what not to filter.
Spam is hell...
- Original Message -
From: "Hamid Majidy" <[EMAIL PROTECTED]>
To: "Wayne" <[EMAIL PROTECTED]>
Cc:
On Mon, Dec 17, 2001 at 11:04:10PM -0500, Michael R. Wolf wrote:
> $length = @thearray
>
> The assignment operator supplies the scalar context.
No, it's not the assignment operator that provides the scalar context, it's
the assignment to a scalar.
Consider:
@anotherarray = @array;
or
Jenda Krynicky wrote:
>
> But don't ever forget to reset it back! :
>
> { local $, = ", ";
> print @output;
> }
>
> IMHO using join() is safer. I'd only use something like this if I
> needed to interpolate several arrays in a HERE-DOC string. I'd
> change $" then of cour
At 10:28 AM 12/19/2001 +1030, Daniel Falkenberg wrote:
>List,
>
>I have a hash of a hash here with that looks similar to the following...
>
>%allusers = (
> 'USER' => {
> 'user1' => 'YES',
> 'user2' => 'NO',
>
Was that you I saw on Dracos??? ;-D
- Original Message -
From: "Morbus Iff" <[EMAIL PROTECTED]>
To: "Wayne" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, December 18, 2001 3:14 PM
Subject: Re: dollar sign in subject
> >Every time any of you place a dollar sign ($) in the sub
I have an object defined in the file act.pm as:
package Act ;
use Class::Struct ;
struct Act => {
nxt => '$' ,# Pointer to next Act
lev => '$' ,# Level for this Act
ln => '$' ,# Line Number
cnt => '$' ,
How well would that work?
I use Outlook Express, due to the large number of email accounts I use for
assorted things...
- Original Message -
From: "Hamid Majidy" <[EMAIL PROTECTED]>
To: "Wayne" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; "Morbus Iff" <[EMAIL PROTECTED]>
Sent: Tuesday,
I may have to just track down that rule and trash it, after I see just what
all it did place in the deleted box...
To do dollar sign digit, I'd have to make ten items in the rules.
Some subject lines get pretty clever.
That's why a large number of people have been caught by some of the
Trojans
List,
I have a hash of a hash here with that looks similar to the following...
%allusers = (
'USER' => {
'user1' => 'YES',
'user2' => 'NO',
'user3' => 'YES'
}
);
With
How about a dollar sign followed by numeric digit(s) as a spam rule?
-Original Message-
From: Morbus Iff [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, December 18, 2001 3:14 PM
To: Wayne; [EMAIL PROTECTED]
Subject: Re: dollar sign in subject
>Every time any of you place a dollar sign ($) in
>Every time any of you place a dollar sign ($) in the subject line, it gets
>tossed into the deleted file here.
Those are pretty draconian filters you have. I can see filtering $$$
subject lines (as I do locally), but subject lines that contain $ should be
further analyzed for common spam languag
> "Wayne" == Wayne <[EMAIL PROTECTED]> writes:
Wayne> Every time any of you place a dollar sign ($) in the subject line, it gets
Wayne> tossed into the deleted file here.
Wayne> This is due to the vast amount of spam being sent over the Internet.
Wayne> I dare say there are many more who
Every time any of you place a dollar sign ($) in the subject line, it gets
tossed into the deleted file here.
This is due to the vast amount of spam being sent over the Internet.
I dare say there are many more who have such a filter.
It means that a number of your emails will not be seen by a
> Hi,
>
> I am used to work with a search and replace software
> and I have a list of pattern like the one above which
> I would like to translate to PERL. Need your help and
> comments.
>
There is an example above? I'm assuming your Austrailian,
since that'd mean you'd be upside down compare
| > open(READ, "$ARGV[0]");
| >
| > $wholeText = "";
| >
| > while(defined($i = )) {
| > $i =~ s/\.Cure/\.fa/g ;
| > $i =~ s/cure-/fa-/g ;
| > $i =~ s/class=Cure/class=fa/g ;
| > $i =~ s/window.name!=\"frSheet\"/false/g ;
| > $wholeText = join('', $w
This doesn't do what you think it does.
unless ($response eq '1' || '2' || '3')
It says, unless the response was eq to 1, or if 2 is true, or if 3 is true.
2 and 3 are true by definition so this will always be true. I think you
want
unless ($response eq '1'
or $r
--- Chris Zubrzycki <[EMAIL PROTECTED]> wrote:
> Hey everybody. I have a simple problem that has been stumping me. I'm
> using Perl 5.6.1 on Mac OS X 10.1.1. This is a sub for opening a file in
> my program. this is the sub, and the problem is when i run it, if i do
> not enter a number 1-3, it
> Hi there, I've just started reading the book Learning
> Perl and I'm amazed what perl can do.
>
> Currently, I'm trying to find out a way to automatically
> save email messages (from MS Exchange / Pop3) to text
> files in a directory.
>
> I am planning to write something in VB but would like
If you know the size of the last line you can use 'seek' to get there, but
this operates on bytes, not chars. If the records are of a fixed size this
would be the most efficient way to do it.
use POSIX; #This gives us the SEEK_END constant
seek (FH, -$recsize, SEEK_END) or die "Could not seek: $
While there are some things Perl doesn't do as well as other languages you
would be hard pressed to find something it couldn't do at all. While I
haven't written anything like what you describe, it sounds like a Perl job
to me.
You might want to take a look at the CPAN archive to see if anyone h
You are probably thinking of associative arrays. They are declared with the
'%' character in the lead and do not have any intelligible order. With a
normal array the order is guaranteed.
If your files aren't to big I've found this idiom useful when I just want
the last line.
open (FH, "smallfi
On Tue, Dec 18, 2001 at 10:43:54AM -0800, James Kelty wrote:
> Well, I thought of that earlier, but I also thought that I was not
> guaranteed that the order of an array was unreliable, so I may not actually
> be getting the 'last' of the file. True or untrue ?
Arrays are ordered, they must be, t
Okay okay okay...
I am now using a hash to hold the variables etc.. one thing I dislike and
wonder
if there is a way around it is using thre $hasname{$vaiable_name} is there
any way I could
possibly forgo the hash and use global variables?
that is, instead of calling the variables like above ($
Hi,
I am used to work with a search and replace software and I have a list
of pattern like the one above which I would like to translate to PERL. Need
your help and comments.
[Search /ix](control of the car)
+[A-Za-z]_NN/2 +[A-Za-z]_IN +[A-Za-z]_AT +[A-Za-z]_NN
[Replace]
%1 %2 %3 %4
Reg
you have code at the bottom that tells it to loop back to the beginning if
your response is not equal to a value between 1 and 3. So, it would continue
to do this until you entered a valid value - or am I misunderstanding the
question?
> unless ($response eq '1' || '2' || '3') {
>
Hey everybody. I have a simple problem that has been stumping me. I'm
using Perl 5.6.1 on Mac OS X 10.1.1. This is a sub for opening a file in
my program. this is the sub, and the problem is when i run it, if i do
not enter a number 1-3, it keeps asking me forever to enter a number.
Even if I
You are right. I would suggest going with Smoot Carl-Mitchell's suggestion.
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: "Etienne Marcotte" <[EMAIL PROTECTED]>
To: "Agustin Rivera" <[EMAIL PROTECTED]>
Cc: "James Kelty" <[EMAIL PROTECTED]>;
On Sat, Dec 15, 2001 at 06:06:59PM +0100, Greennet wrote:
> Merry Christmas All!
And a Merry Christmas to you too.
> Sorry if this is the wrong list. I'm new to Perl, CGI, and web service
> providers so I'm not sure if this is the right list to post my question to.
> If it's not will someone l
If the file is huge I wouldn't recommend doing so.. because it puts all
the file into your array
I think you can go directly to the last line if you know exactly the
length of the last line, am I wrong on this one? Like seeking to the end
and reading backwards of n chars?
Etienne
Agustin Rivera
hi there, i've just started reading the book Learning Perl and
I'm amazed what perl can do.
Currently, I'm trying to find out a way to automatically save
email messages (from MS Exchange / Pop3) to text files in a
directory.
I am planning to write something in VB but would like to try
perl
Ok, thanks!
-James
-Original Message-
From: Agustin Rivera [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, December 18, 2001 10:49 AM
To: James Kelty; [EMAIL PROTECTED]
Subject: Re: Last line of file...
I've never had an instance where that didn't work. I use for $a(0..$#array)
loops in alm
> "McCollum, Frank" <[EMAIL PROTECTED]> said:
> I'm a beginner too, given, but alternatively, you could unshift the lines
> into an array and just check the last variable. This would allow you to
> reference the other lines later if there was more work to be done here.
Something like this while
I've never had an instance where that didn't work. I use for $a(0..$#array)
loops in almost all of my scripts.
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: "James Kelty" <[EMAIL PROTECTED]>
To: "Agustin Rivera" <[EMAIL PROTECTED]>; <[EMAIL
Well, I thought of that earlier, but I also thought that I was not
guaranteed that the order of an array was unreliable, so I may not actually
be getting the 'last' of the file. True or untrue ?
-James
-Original Message-
From: Agustin Rivera [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, Dec
In that case, do this..
open(IN, "filename");
@file=;
print "$file[$#file]\n";
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: "James Kelty" <[EMAIL PROTECTED]>
To: "Agustin Rivera" <[EMAIL PROTECTED]>
Sent: Tuesday, December 18, 2001 10:27 AM
I'm a beginner too, given, but alternatively, you could unshift the lines
into an array and just check the last variable. This would allow you to
reference the other lines later if there was more work to be done here.
-Original Message-
From: James Kelty [mailto:[EMAIL PROTECTED]]
Sent:
From: Ryan Guy <[EMAIL PROTECTED]>
> How do I send mail without and SMTP server. My company uses a
> microsoft exchange server and I cannot figure out how to get the
> Mail::Sendmail module to work.
If you know for sure the Exchange server doesn't have SMTP
turned on you can
If this is all you want your script to do, I suggest using this command
tail -n1 filename
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com
- Original Message -
From: "James Kelty" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, December 18, 2001 10:21 AM
Subje
Is there a document in perldoc that tells the best way to get the last line
of a file? Below is my usual code for reading a file.
#!/usr/bin/perl -w
$file = qq(/some/file/);
open FILE, "$file" or die "Cannot open file: $!\n";
while() {
do something with the line;
}
close(FILE);
What I w
I am unseeing the following piece of code to send
email. In order for this
email to be generated there needs to be an error in my
script.
use Mail::Sendmail;#Send and
email if there are errors
%mail = ( To => '[EMAIL PROTECTED]',
From=> '[EMAIL PROT
How do I send mail without and SMTP server. My company uses a microsoft
exchange server and I cannot figure out how to get the Mail::Sendmail module
to work.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--- Lance Prais <[EMAIL PROTECTED]> wrote:
> I am unseeing the following piece of code to send email. In order for this
> email to be generated there needs to be an error in my script.
>
> use Mail::Sendmail;#Send and email if there are errors
> %mail = ( To => '[EM
I have several scripts that use Sybase::DBLib that worked using previous
versions of perl, but after installing the most recent ActiveState version,
all of these scripts cause application errors.
I've used fileMerge to compare all of the modules and see no differences,
and I do not see a diff
1- Thanks for posting with a descriptive subjects:)
2- $_ is the default perl variable, when you don't specify one and you
cann a while, foreach, etc, it has that variable in the $_. Right after
declaring a variable, $_ stores that variable.
the best if you don't want to play with $_ yet, declar
> -Original Message-
> From: Michael Pratt [mailto:[EMAIL PROTECTED]]
> Sent: Monday, December 17, 2001 11:32 PM
> To: [EMAIL PROTECTED]
> Subject: ARGV
>
>
> I cant seem to get the ARGV to work right via web I get not
> found error but
> it works via command line. whats the trick?
>
>
Hi,
I am very new to PERL (as you will be able to tell!!!), can you please
explain my question below?
When I run this piece of code (below) I am looking for more than one word
to be etered by the user and then the words that were entered are returned
to the user in a right justified 20 character
I forgot
closedir(DIR) || warn "Error closing directory: $!"; # (which is always
good to do)
There is probably a way of doing it with one line, maybe with the funky
functions like map, but I don't know them...
And you can use another weirdo function, grep, to remove the "." and
".." and all non
On Dec 18, Lance Prais said:
>I tried to use '((substr($line, 42, 7)' which the text I want to include but
>it did not show the output.
You can't put code inside a quoted string and expect it to evaluate.
%mail = (
To => '[EMAIL PROTECTED]',
From=> '[EMAIL PROTECTED]',
I am unseeing the following piece of code to send email. In order for this
email to be generated there needs to be an error in my script.
use Mail::Sendmail;#Send and email if there are errors
%mail = ( To => '[EMAIL PROTECTED]',
From=> '[EMAIL PROT
opendir (DIR, "/home/skhan01/perl/file_tests") || die "Can't open
directory: $!";
my @files = readdir(DIR)
foreach(@files) {
print ("File exist!\n") if ($_ =~ /^vista90n/ && -e $_); #print if file
starts with vista90n and it exists.
} #end foreach
Not tested
Etienne
> "Khan, Sajid" wrote:
>
>
Hello, I'm trying to help a friend recover from a machine compromise.
We've reinstalled/upgraded the OS (RH7.2) and have installed all the
components the server needs:
MySQL (from rpm)
PostGreSQL (from tarball)
PHP4 (from tarball)
Perl
> -Original Message-
> From: Michael R. Wolf [mailto:[EMAIL PROTECTED]]
> Sent: Monday, December 17, 2001 10:27 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Shift and "=>"
>
> => is the stringifying-coma it's just like a coma, but it
> forces its LHS to be a string.
For the benefit of other
Title: How do you check for a file with a varying extension with the "-e" option?
Hi Guys
I am running into an issue trying to determine whether a file exists when the name varies.
The file has a name that always begins with "vista90n" and so I tried the following code ...
if (-e "/home/sk
Be nice to those who choose not to receive html mail:
open (MAIL, "|/usr/sbin/sendmail -t -oi") || die "Can't fork for
sendmail:$!\n";
print MAIL <
HTML mail here
--_=_NextPart--
EOF
close(MAIL) || warn "sendmail didn't close nicely\n";
-Original Message-
From:
my @si = qw"T G M k * m u n p";
$si[4] = '';
sub normalize {
my $a = shift;
my ($number, $exponent) = $a =~ /(.*)e?(.*)/;
while ($number >= 1000) {
$number /= 1000;
$exponent += 3;
}
while ($number and ($number < 1)) {
$number *= 1000;
$exponent -= 3;
}
return ($a,''
From: georgi choumov <[EMAIL PROTECTED]>
> Please help me to solve one problem with my perl script !
> I am using this script for reading and changing some strings in HTML
> file. But if it reads an big file (over 1 MB) its needed more than 10
> minutes !!!
>
> How can I optimiz
> push @{ $final_hash{$time}[0] }, $hash1{$time}[0];
'push @{ }' is creating a new array;
'$final_hash{$time}[0]' is a reference to this new array.
use this instead:
$final_hash{$time}[0] = $hash1{$time}[0];
- Flávio Soibelmann Glock
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
Hi all,
a while ago I wrote a little unit conversion I am quite happy with. Just out
of interest: is there a more elegant way to do it? And maybe even more
interesting: what approach should I take to implement the back conversion?
Here is my code:
#! /usr/gnu/bin/perl -w
Hello all,
I am working within a small network (10 computers). I am trying to
create a form that people can access through the f: (global drive). They
will fill in this form, and the results will be processed by my script, and
emailed to me. I have installed activeperl in the f drivebut I c
OK, I believe I identified the source of the problem, even though I don't
yet understand it:
somehow the filehandle for reading the input file is not set properly.
As I understand it, the filehandle should be the local filename (hence
"$file" in the code given below), but if I just use "$file",
Michael Pratt wrote:
>
> I cant seem to get the ARGV to work right via web I get not found error but
> it works via command line. whats the trick?
>
> It works if I do this get_file.pl test1.txt test2.txt
>
> but it wont work via http://www.host.com/cgi-bin/get_files.pl test1.txt
> test2.txt
>
> Jenda Krynicky wrote:
> >
> > "John W. Krahn" <[EMAIL PROTECTED]> suggested:
> > > my @s = split //, $s;
> > >
> > > my @s = unpack 'a' x length $s, $s;
> > >
> > > my @s = $s =~ /./gs;
> > >
> > > push @s, substr $s, $_, 1 for 0 .. length $s - 1;
> > >
> > > push @s, chr vec $s, $_, 8 for 0 ..
From: Carl Rogers <[EMAIL PROTECTED]>
> At 02:18 PM 12/17/2001 -0800, Scott Lutz wrote:
> >I was looking for more of a way to print out the array, with
> >inserting a comma (,) between every array value, like while ( @output
> >) {
> > print $output[position] .","
> >}
>
> You can also as
Hi guys,
I encountered this dereference problem on hash-of-lists tables. Although I have
managed to solve the problem thru trial and error, I need someone to explain to me
what was wrong exactly. I tried searching the web for some info but couldn't find any.
The problem started when I tried to
> Jonathan,
>
> Thank you very much for your response! It looks alot
> tidier now :) But for some reason when I run the
> script I get the following...
>
> %popusers = ();
>
> Ie %popusers is not being populated at all! I have
> done nothing to your code I simply cut and pasted it
> to test
On Mon, Dec 17, 2001 at 10:31:43PM -0600, Michael wrote:
> I cant seem to get the ARGV to work right via web I get not found error but
> it works via command line. whats the trick?
>
> It works if I do this get_file.pl test1.txt test2.txt
>
> but it wont work via http://www.host.com/cgi-bin/get_
- Original Message -
From: "Chris Ball" <[EMAIL PROTECTED]>
> On Mon, 2001-12-17 at 15:46, Jeff 'japhy' Pinyan wrote:
> > It certainly puts my C-like code to shame. It's very nice.
>
> And even more so to my code. Very well written, Bob.
I'm very impressed at all the solutions and the s
hi dear team.
one of you ask about work with file that find block or not.,
with out block it before...
I find this function..
stat FILE
Returns a 13-element array (0: $dev, 1: $ino, 2: $mode, 3: $nlink, 4: $uid, 5: $gid,
6: $rdev, 7: $size, 8: $atime, 9: $mtime, 10: $ctime, 11: $blksize, 12: $bl
Hello,
I got the whole dope about referencing and dereferncing in the Perl
documentation which comes with Active Perl.
Peter:: Thanks again.
Regards,
Sharat
>From: "Sharat Hegde" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED]
>CC: [EMAIL PROTECTED]
>Subject: RE: List of Associative Arrays
>Date:
I am trying to adapt my commandline script to work from
a web page. The HTML code is this:
--SNIP--
http://adminweb.stage.mas.com.au/cgi-bin/find_user_web.pl";>
--SNIP--
The script is like this
--SNIP--
use Win32::NetAdmin;
use Win32::TieRegistry(Delimiter => "/");
use strict;
use CGI
>I initiatize the list with:
> @MainList = ();
Looks good.
>To add elements, I am doing:
> push(@MainList, [%ElementAssocArray]);
Not quite right. Loose the square brackets and take a reference to the
hash.
push (@MainList, \%ElementAssocArray);
>To access each element (for example the
Hi Daniel,
I doubt this is the best way of doing it but :-
%popusers_test = (
'test8' => 'YES',
'vintkepop' => 'NO'
);
print "[USERS]\n";
foreach $user ( sort keys %popusers_test)
{
print "$user =
94 matches
Mail list logo
