hi all...
I read about "undef" a lot
but..
I dont understand the difference between "undef" and "delete".. ?
and why do we use undef...
thx
__
Best regards . Nafiseh Saberi
Iran .
notes .
At 11:28 AM 10/23/01 +0930, Daniel Falkenberg wrote:
>Firstly. I have a host using a 56k modem connection. When I ping these
>servers using the ping object
>
>$p = Net::Ping->new("icmp");
>
>If the server that is being pinged doesn't respond it generates an error
>message. Then when
At 09:52 PM 10/22/01 -0400, Jeff 'japhy' Pinyan wrote:
>On Oct 22, Rex Arul said:
>
> >Without resorting to any additional lists/arrays, how can I maintain the
> >order of the keys in a hash? Is there a "package/module" that would redress
> >this issue?
>
>Tie::IxHash, on CPAN.
It should be said,
Hi,
This works but it can't be this easy, so tell this true beginner what's
wrong with it! I checked it with print "@array\n"; and got an error message
about an "uninitialized value in join or string" I don't know how to deal
with.
@array = (1, 2, 3, 4, 5);
delete $array[2];
Wendy.
"Andrew M
Perl gurus,
Thank you to all of the people who helped me out. I'm right up to the
end and think I know what I need to do now in order to send the binary
data stream across the socket.
I am using "pack" to send 10 bytes of data as a stream, but the
problem is that pack isn't working as I'm tryin
I wonder why the use of sprintf? I would have done it this way:
foreach (@list) { $_=":$_"; }
Is there something that the sprintf does that I'm missing, or is this
just another way to skin the same cat? Perhaps in other circumstances
sprintf is superior?
Just curious,
Pete
Etienne M
Thanks Jeff
However
@first25 = grep{$_->[1] =~ /^MA\d/} @all;
results in
"Modification of a read only value attempted"
- Original Message -
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
To: "Clinton" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, October 23, 2001 11:40 AM
Su
Hi all,
I have just been playing with Net::Ping recently and have a few
questions that I need clarifing if any one has the time.
Firstly. I have a host using a 56k modem connection. When I ping these
servers using the ping object
$p = Net::Ping->new("icmp");
If the server that is b
On Oct 22, Rex Arul said:
>Without resorting to any additional lists/arrays, how can I maintain the
>order of the keys in a hash? Is there a "package/module" that would redress
>this issue?
Tie::IxHash, on CPAN.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RP
Hello Friends,
Without resorting to any additional lists/arrays, how can I maintain the
order of the keys in a hash? Is there a "package/module" that would redress
this issue?
I would like to access data, the same order I added to the hash in the first
instance.
Thanks,
Rex
--
To unsubscrib
On Oct 23, Clinton said:
>@first25 = grep{$_->[1] eq (/^MA\d+/)} @all;
You're asking about how to bind a pattern to a variable:
$_->[1] =~ /^MA\d/
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www
While reading, I think I figured this out, I just want to verify
with someone first.
#!/usr/bin/perl
### bunch of code
require "you_need_me.pl"
more code
&sub_from_you_need_me.pl
### END FILE
# This is in the "you_need_me.pl"
## code
sub sub_from_you_need_me {
#code
}
By using t
Hi
I would like to use grep on an array to remove rows from an array. If I hard code a
variable it works. The regex works on its own but I can't put the two together.
@first25 = grep{$_->[1] eq (/^MA\d+/)} @all;
Help appreciated
Regards
CCJ
>I want some guidance on event handling in perl. I want to perform an action
>on mouse click event or key button press event.
>Like a dialog box or message box should popup when I click left or right
>mouse button.
>I tried to use win32::Event Module . But I did not understand how to use it.
>Is i
Hi guys, I just configured pine to accept emails from [EMAIL PROTECTED]
to go into another folder.
Please do not reply and disregard this email.
Thanks
Eric
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Is it possible to open a file for writing in an suid cgi program? If so,
how?
Joshua Colson
Systems Administrator
Giant Industries, Inc.
(480) 585-8714
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--- Brian <[EMAIL PROTECTED]> wrote:
> #1 How can I tell the upper boundary limit of the array (IE, Max Entries)
If I understand your question correctly, in Perl, there really aren't "upper
boundaries" to
arrays. Those are more dependant on how much memory your system has :) If you're
using
Oops..Sorry for the typo...Perl Arrays are 0 based arrays. So they start
with 0.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 22, 2001 5:33 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: Assistance with Array.
1) Perl Arrays are 0
1) Perl Arrays are 0 based arrays. So they start with 1.
2) For array, @item, $#item will give you the last index. Therefore the
array's count number of elements can be obtained from $#item + 1
3) scalar(@item) will give you the total count number of elements.
4)@item[4] will give you the 5th elem
1) I am not sure on the max size in perl I think it was alot ;)
2) to access the 5th element its print $item[4]; arrays start with 0 to
let you know.
On Mon, 2001-10-22 at 21:46, Brian wrote:
> #1 How can I tell the upper boundary limit of the array (IE, Max Entries)
>
> #2 if I have an array
#1 How can I tell the upper boundary limit of the array (IE, Max Entries)
#2 if I have an array: @item ... how can I see just the 5th element?
something like: print @item[5]; ?? Would that work?
Any assistance would be fantasic ... also, if that does work, does Perl
start with 0 or with 1 as
Andrea Holstein wrote:
>
> ( $a1,$a2,$a3,$a4 ) = $program =~ m/^(.+)\.(.+)\.(.+)\.(.+)$/;
>
Oh, I see, it's a slow solution.
Substitute every (.+) with ([^\.]+) and the pattern matching will be
quite quicker.
Greetings,
Andrea
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comman
Jerry Preston wrote:
>
> I want to break down this name, pgrap.C4A2S1R.1.gif, into 4 parts. I
> can do it with split:
>
> ( $a1,$a2,$a3,$a4 ) = split( /\./, $program );
>
> How do I do it with s/\b(\.)\b(\.)\b(\.)\b(\.)/?
>
Don't use substutions when you want to get parts
Prasanthi Tenneti wrote:
>
> In my prog ,I have 6 different arrays.And all first elemnts should do something.ANd
>all 2nd elements in arrays should do something and so on .
> Iam unable to write code in perl for this.PLs help me.
Let's assume, the 6 different arrays are declared as array1 .. a
Hi,
I want to break down this name, pgrap.C4A2S1R.1.gif, into 4 parts. I
can do it with split:
( $a1,$a2,$a3,$a4 ) = split( /\./, $program );
How do I do it with s/\b(\.)\b(\.)\b(\.)\b(\.)/?
Thanks,
Jerry
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
no dice: i tried adding this immediately after the open:
binmode *HTML, ":text";
which results in:
Unknown discipline ':text' at ../js.pl line 25.
> try putting:
>
> binmode HTML, ":text";
>
> immediately after the open.
>
> On Mon, 22 Oct 2001, dan.kelley wrote:
>
> >
> > hi-
> >
> > i'm t
try putting:
binmode HTML, ":text";
immediately after the open.
On Mon, 22 Oct 2001, dan.kelley wrote:
>
> hi-
>
> i'm tring to write a simple script that opens a set of html files and
> replaces one hunk of text with another. i'm using 5.6.0 on solaris 8.
> the script runs fine, and correctl
> I need to create a hash with fixed elements and print all elements.
I think that people keep missing this when they send their answers.
They're telling you how to print the hash, which is helpful, but not how
to keep the sequence of items. Because of the way that hashing is done,
no hash is f
Me again
if you only want to print what's in your hash, you can do
my %hash = qw(sky blue grass green apple red);
foreach (%hash){ print "$_ = $hash{$_}"; }
But since your hash doesn't have a key->valyue pattern, I don't know why
it's not stored in a simple array..
my @array = qw(sky blue gras
hi-
i'm tring to write a simple script that opens a set of html files and
replaces one hunk of text with another. i'm using 5.6.0 on solaris 8.
the script runs fine, and correctly replaces every piece of text that it
should. problem is this: it seems to convert the mode of the file in a
way t
You need to declare the variable before putting values in them
my %hash = qw(sky blue grass green apple red);
# I have qw the words, less typing, useful if there are no spaces in your
elements
my @hash_list = %hash ;
rest of code
Etienne
Neclos wrote:
> I need to create a hash with fixed elem
>It's always better to reply in the mailing list also, since some users are
>always better and can correct code:-)
Sorry for that.
Yes, this is what I'm looking for. Thank you
>To access each field, you just have to access theindivudual array elements
>
>open FILE, $file or die "Cannot open
This is all that you need:
use strict ;
my %hash = ("sky", "blue", "grass", "green", "apple", "red") ;
while(my($key, $val) = each(%hash)){
print("$key ==> $val\n");
}
-Original Message-
From: Neclos [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 22, 2001 3:13 PM
To: [EMAIL PRO
Maybe this??
$line =~ s/([^:])*:/\e:$1/g;#Substitute pattern instead of : in
regexp
$line =~ s/^\e(.*)/$1/; #Ommit first \e character
@answer =~ split(/\e/, $line); #That's all!
Should Work
>From Russia with love!!! It's getting cold here ;-)
- Original Message -
F
It's always better to reply in the mailing list also, since some users
are always better and can correct code:-)
To access each field, you just have to access theindivudual array elements
open FILE, $file or die "Cannot open file: $!\n";
while () {
my @list = split; # splits using a space as deli
I need to create a hash with fixed elements and print all elements. I
keep getting errors when I try to run what I put together. I commented
out the different ways I tried to run the print. Now I have no clue
what to try next.
use strict ;
%hash = ("sky", "blue", "grass", "green", "apple", "
you are right it is not supported, how can I do that, should I use
net::telnet or is there a module working for that kind of job?
first I try FTP because I got the entire file but I thought later I can just
get a few line and not the entire file.
Is there a way to just get a few line, like
@li
I pass the name of a module to a subroutine. In the subroutine I would
like to use the module named. I can get the module name (or a reference
to it) in a variable, but I can't seem to use it with the sub command.
Is there some special way to dereference the variable, or is this just
not possibl
At 08:37 PM 10/22/01 +0200, José A. Ferrer wrote:
>Please,
>
>I have a text file separated with one or more whitespaces. I need to
>extract each line to scalar variables everything but whitespaces. How can
>it be done in perl ?
open IN, $file or die "open failed for $file: $!\n";
while () {
open the file,
while () {
my @list = split(/ /, $_);
..do something with the list..
}
This way you have to make the appropriate work inside each loop in the while
because @list gets the new line value each time..
Etienne
"José A. Ferrer" wrote:
> Please,
>
> I have a text file separated wit
Please,
I have a text file separated with one or more whitespaces. I need to
extract each line to scalar variables everything but whitespaces. How can
it be done in perl ?
TIA.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello all,
I am trying to write a script that will combine 2 /etc/passwd files.
The tricky part is that most of the entries from passwd1 are already in
passwd 2 but some have errors. (some of the password fields are locked,
some of the group ids are wrong)
Does anyone have a script (or know of one
Thanks, Jeff. For some reason I must have just kept missing it in the docs.
Either my guess was extremely intuitive or, since I must have already read it
somewhere before, very deeply buried in my subconscious. ;-)
Cheers,
--ted
Jeff 'japhy' Pinyan wrote:
> On Oct 22, Ted Markowitz said:
>
> >
On Mon, Oct 22, 2001 at 06:50:02AM -0500, Jon Cassorla wrote:
> Anyone know if you can setuid root from a perl program or module?
You can call setuid root programs. You cannot just assume root privileges,
for what should be obvious reasons. You can call the C setuid function (or
equivalent) by
or..
system("C:\\WINNT\\notepad.exe");
system("C:/WINNT/notepad.exe");
same on my box and I save myself that extra typing :)
-Original Message-
From: Busse, Rich [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 22, 2001 11:08 AM
To: Perl Beginners
Subject: FW: Running application
Watch
Watch the backslashes...
Try:
system("D:\\ultraedit\\uedit32.exe netlog.txt");
-Original Message-
From: phumes1 [mailto:[EMAIL PROTECTED]]
Sent: Monday, 22 October, 2001 08:02
To: [EMAIL PROTECTED]
Subject: Re: Running application
I have the following script which runs UltraEdit but
On Oct 22, Ted Markowitz said:
>normal hashes could only take single keys. Is there some sort of
>auto-concatenated key being built out of the 3 list arguments under the
>covers?
Yes. The 'perldata' section of the docs should cover it, and the
'perlvar' section does.
$hash{'a', 'b', 'c'}
is
While I know that this hash syntax shown below is "legit", that is, it
works as I'd expect it to---printing out "M" and "T" respectively---I'm
curious as to exactly how perl is interpreting this syntax (which I've
only seen once in someone else's code)? I was under the impression that
normal hash
>
> I don't think he want's the " for each item since he wrote:
> How if I want to
> get: @aaa = (":1",":2",":3",":4",":5") how to do it?
>
> probably means that he want's the array to be @list =
> (":1",":2",":3",":4",":5"); and since it's not qw() the ""
> are to quote each
> item
I agree
yes, I caught that a bit after I sent it off !
Thanks.
> -Original Message-
> From: Etienne Marcotte [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 22, 2001 1:21 PM
> To: Kipp, James
> Cc: [EMAIL PROTECTED]
> Subject: Re: How to split it?
>
>
> In fact it's for (0..(@list-1))
>
>
Sorry you had already corrected both my errors before I could hit the reply
button:-)
I don't think he want's the " for each item since he wrote: How if I want to
get: @aaa = (":1",":2",":3",":4",":5") how to do it?
probably means that he want's the array to be @list =
(":1",":2",":3",":4",":5")
In fact it's for (0..(@list-1))
because with from 1 it skipped the first elemt with [0]
Etienne
"Kipp, James" wrote:
> >
> > use strict;
> >
> > $line = "1:2:3:4:5";
> > @list = split (/:/ ,$line);
> >
> > for (1..@list) { @list[$_] = sprintf(":%d",@list[$_]; }
>
> good call, but you will need
Sorry. me again.
one more time..this will include the "" around each item, exactly what you
needed:
@list = split (/:/ ,$line);
for (0..(@list-1)) { @list[$_] = sprintf("\":%d\"",@list[$_]); }
> -Original Message-
> From: Etienne Marcotte [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October
>
> use strict;
>
> $line = "1:2:3:4:5";
> @list = split (/:/ ,$line);
>
> for (1..@list) { @list[$_] = sprintf(":%d",@list[$_]; }
good call, but you will need to do :
(1..(@list-1)
> > For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
actually this way will catch the : in front of 1 and avoid starting at 0:
@list = split (/:/ ,$line);
for (0..(@list-1)) { @list[$_] = sprintf(":%d",@list[$_]); }
> -Original Message-
> From: Etienne Marcotte [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 22, 2001 12:47 PM
> To: [EMAI
use strict;
$line = "1:2:3:4:5";
@list = split (/:/ ,$line);
for (1..@list) { @list[$_] = sprintf(":%d",@list[$_]; }
that's it that's all
@list now contains (":1",":2",":3",":4",":5")
Etienne
Wagner-David wrote:
> As you do your processing, then you could build the output the way you
I know that they both belong to at least one of these lists. I would
recommend you try posting your questions to the list first and see if anyone
can help you. They generally quickly answer questions that require their
level of knowledge.
> -Original Message-
> From: Abhra Debroy [mailt
As you do your processing, then you could build the output the way you want it
to appear:
foreach( @aaa ) {
my $MyId = sprintf "\":%d\"", $_;
# now $MyId looks like ":1" then ":2", etc.
]
Wags ;)
-Original Message-
From: [EMAIL PROTECTED] [mailto
if I split:
$line = "1:2:3:4:5";
@aaa = split (/:/ ,$line);
I will get: @aaa = (1,2,3,4,5)
How if I want to get: @aaa = (":1",":2",":3",":4",":5") how to do it?
(":" can be a pattern)
TIA,
basssang
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTE
Hi, I have this code:
@_FieldEntries =qw {VER TI TV};
sub MakeEntries()
{
my $myframe = $_Globals{TOP_WINDOW}->Frame(-label => "",
-relief => "groove",
-borderwidth => 2)
->pack(-anchor => "w",pady => 20);
foreach (@_Fiel
The editing dept does a Save As...*.html on all the MS-Word files we
publish. However, in the process, each line in the new HTML file now ends
with a paragraph mark. So, I am trying to write a script that deletes HTML
tags over new lines (which I got to work), but also over paragraph marks.
Wha
will be available in $ARGV[0] in your script
read http://japh.nu/index.cgi?base=perlvartut if you want to learn some more
about it
hth
Jos
- Original Message -
From: "phumes1" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 22, 2001 3:54 PM
Subject: Re: passing filena
Hi, How can I do to parse a file(c:\cygwin\etc\DHCPD\dhcpd.conf) which is for
exemple a part which contains:
host col36545c {
hardware ethernet 00:02:A5:31:7D:7C;
option vendor-encapsulated-options "install:KLOR_1:%77.90";
filename "/bootp/linux
I have the following script (load.pl) which loads UltraEdit. How can I pass
a filename to the script like:
#!/usr/local/bin/perl
{
print '%Loading UltraEdit...',"\n";
chdir "D:\ultraedit";
system "uedit32.exe";
exit 0;
}
C:>load.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additi
No, there is'nt a module for setuid root.
You can, for example, do a call at: system ("su -"), but it require a
password.
This is ogic for have a security (have a script thath switch at root can
be dangerous).
Walter
> Anyone know if you can setuid root from a perl program or module?
>
> Jo
' needs to be changed to '' (two ') and not backslashed...
you should use quote function if it's not numbers it will make sure that
you have the right formatting to enter data in your DB
Etienne
Matt Klicka wrote:
> I'm trying to enter data into MySQL and can't seem to
> be able to enter the qu
Hi,
Could you try the following ?
!#/usr/local/bin/perl
{
print '
',"\n";
print '%Loading UltraEdit...',"\n";
chdir("D:\ultraedit\");
system("uedit32.exe netlog.txt");
exit 0;
}
it should work.
Regards,
Nicu
phumes1 wrote
I have the following script which runs UltraEdit but I keep getting an
error. I checked the path and it is correct.
#!/usr/local/bin/perl
#
{
print ' ',"\n";
print '%Loading UltraEdit...',"\n";
system("D:\ultraedit\uedit32.exe netlog.t
Hello all,
I'm relatively new to the list, so I'm sorry if I'm going over old
ground here !
I would like to use PERL to view information in a Microsoft Access
Database
and then use this information in other programs away from the Database.
Trouble is, I'm slightly confused by all the information
Anyone know if you can setuid root from a perl program or module?
Jon Cassorla
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi All
Do Mr Aldo Calpini and Mr Jan Dubois are the member of any of these perl
group
([EMAIL PROTECTED];[EMAIL PROTECTED];perl-win32-users@listserv.
ActiveState.com).
Are Mr Aldo Calpini and Mr Jan Dubois listening to me ?
If anybody know their email address please let me know .
Thanking
Hi,
In my prog ,I have 6 different arrays.And all first elemnts should do something.ANd
all 2nd elements in arrays should do something and so on .
Iam unable to write code in perl for this.PLs help me.
br,
pt.
Make a difference, help support the relief efforts in the U.S.
http://clubs.lyco
Transform your pl file in a package and then use use to get variables,
or qualify the full name : $modname:varname.
define this variables global in modul or export the vars .
take a look on Exporter Modul
hope it helps
martin
÷ÁÓÉÌØÞÅÎËÏ îÁÔÁÌØÑ áÎÁÔÏÌØÅ×ÎÁ wrote:
> Hello, all!
>
> I have som
Hi all,
With kernel 2.4.x the"make test" of my perl-5.6.1 have 4 script
errors:
lib/dirhand failed test 3
lib/glob-basic failed test 2
lib/io_dir failed test 3
lib/syslog failed test 5
If I use the kernel 2.2.19, the test are all succesfully.
Why ?
config.sh like attachment.
Best R
YES !!! I got it . Thank you very much : -)
Rex Arul wrote:
>You can take a look at this beautiful article:
>http://www-106.ibm.com/developerworks/library/l-pexcel/
>
>-- Rex S. Arul
>
>
>- Original Message -
>From: "Kelvin Ng Chee Hoong" <[EMAIL PROTECTED]>
>To: "nafiseh saberi" <[EMAI
You can take a look at this beautiful article:
http://www-106.ibm.com/developerworks/library/l-pexcel/
-- Rex S. Arul
- Original Message -
From: "Kelvin Ng Chee Hoong" <[EMAIL PROTECTED]>
To: "nafiseh saberi" <[EMAIL PROTECTED]>
Cc: "perl_beginners" <[EMAIL PROTECTED]>
Sent: Monday, Oct
hi,
please see in www.perl.com about definition of structure.
or http://burks.bton.ac.uk/burks/language/perl/perlref.htm#
bye.
__
Best regards . Nafiseh Saberi
Iran .
notes .
Pray for
I am facing a problem in creating an
array of Class::Structs within as Class::Struct.
Something like :
struct Employee => {
name => '$',
empno => '$',
};
struct Company {
employees => '??' # how to declare the type
array of Struct 'E
Hanson wrote:
>
> This may be a simple question but so far I cannot find an
> answer. How can I combine hashs so that if both hashs have
> the same key but with different values, the values from
> both will get merged. I'm currently using:
>
> %hash1 = (%hash1, %hash2);
>
What do you mean with
79 matches
Mail list logo
