Hi and thank you.
I've tried the script sample and it works fine but it doesn't work with the
following line:
fork exit;
I need to type just:
fork;
because otherwise the browser (IE) keeps Opening page
Can you tell me, is it OK if I use the script with the line for closing
STDIN,
Hi,
can you help a begnner with this??
I have a file with the following repeated several times. The date and time
will vary.
UPDATED=06/18/2002 18:42:25
I wnat to replace what ver text is between the quotes with NOT APPLICABLE
ie
UPDATED=NOT APPLICABLE
Regards, Gary
Hello Gary, God bless you.
On Wed, Oct 09, 2002 at 04:19:42PM +0100, Egleton, Gary wrote:
I have a file with the following repeated several times. The date and time
will vary.
UPDATED=06/18/2002 18:42:25
I wnat to replace what ver text is between the quotes with NOT APPLICABLE
ie
my $line = 'UPDATED=06/18/2002 18:42:25';
$line =~ s/(.*?)/NOT APPLICABLE/sig;
try this.
--- Egleton, Gary [EMAIL PROTECTED]
wrote:
Hi,
can you help a begnner with this??
I have a file with the following repeated several
times. The date and time
will vary.
UPDATED=06/18/2002
Hello all,
Could you please tell me what module should I use to send HTML mail?
Can I use Net::SMTP?
And what module could I use to send attachments?
Thank you.
Teddy's Center for the blind: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Hi and thank you.
I want to create a script that is activated when someone visits a .shtml
page.
That script is launched by a server side includes line.
The script need to check if a database was updated, and send mail to more
email addresses about this.
This mailing process might take a long
Kevin wrote:
Hello,
I am in the process of developing a CGI application that requires user
authentication. In the past I have developed a simple login screen where I
validated the user and forwarded the request based on the result.
I would like to progress to the next level and pass the
Hi,
How to remove spaces in a variable?
For eg if i have variable $te
$te = $attr_tag . $date;
chomp$te;
print $te;
Gives me output as follows:
SYNC_CHECKWed Oct 9 12:20:53 2002
I want to remove all the spaces in output variable $te.
Regards
javeed
-Original Message-
From: Javeed SAR [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 5:05 PM
To: [EMAIL PROTECTED]
Subject: spaces in a variable
Hi,
How to remove spaces in a variable?
For eg if i have variable $te
$te = $attr_tag . $date;
chomp$te;
print
- Forwarded message from Bootscat [EMAIL PROTECTED] -
From: Bootscat [EMAIL PROTECTED]
To: Mat Harris [EMAIL PROTECTED]
Subject: Re: FW: Need urgent help
Date: Tue, 8 Oct 2002 20:04:38 -0500
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.
Jessee Parker wrote:
Is there a way to keep track of the number of open sockets your program might have
that are in a TIME_WAIT (I think it is) state?
If you want can trye this script for to track the socket open on the
ports feel free for every change that you want to do.
thio script
Hi Perl experts,
I need your help. I am absolute Perl beginner.
I am writing perl with Windows 95 machine. I download
Perl from activestate and my version 5.6.1. It works
properly and I can run some program.
Currently I am writing log file processing with
perl. I can write normal
Not an expert in perl (nor in english), but let's try ;-)
if your output file is not supposed to get too big,
consider 'writing' first your output lines in a hash
... $hash{1} = line 1; and so on
(later, writing line 10 for eg.)
if (whatever)
{
$hash{5} .= these few words;
}
when finished,
my 2 cents...
Distributed GUI apps are legacy. Write web based software.
You right !
That's what I was thinking about ...
Do you have some reasons in which case Distributed GUI will be the winner against
Browser Client ?
Should I continue learning Perl/Tk then ? :-)
José.
Why not just use Tie::File module ?
http://search.cpan.org/author/JHI/perl-5.8.0/lib/Tie/File.pm#SYNOPSIS
José.
-Original Message-
From: Hello Buddy [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 11:29 AM
To: [EMAIL PROTECTED]
Subject: I need help for handling text
On Wed, 9 Oct 2002 09:00:20 +0100, [EMAIL PROTECTED] (Mat Harris)
wrote:
I tried
require './config.cgi';
I still get the same error. Any other idea's. This one really has me
stumped.
Your config.cgi needs to have a
1;
on it's last line.
Also check permissions on the file.
--
To
Thanks Jean,
But I am afraid to say that my log file is
at least over 60 K lines. I do not know how to do it.
How can I insert any words in any place of open text
file?
Regards
Winn
--- Jean Padilla [EMAIL PROTECTED]
wrote:
Not an expert in perl (nor in english), but let's
try ;-)
if
Due to an bad and old software i need to do an fix.
i have problems though, i need to list all the users in a global group. (Active
directory), this was easy to do. I need to put these users in an local group on a
server, this is easy aswell!
The problem i get is that when i list the global
From: Jim Ockers [EMAIL PROTECTED]
Is there any concise method of fully evaluating the arithmetic
expressions in here documents, rather than just one level of
substitution?:
sub RotationMatrix {
my $theta = $_[0] * 3.14159265 / 180.0;
my $m = cos($theta);
my $n = sin($theta);
From: NYIMI Jose (BMB) [EMAIL PROTECTED]
my 2 cents...
Distributed GUI apps are legacy. Write web based software.
You right !
That's what I was thinking about ...
Do you have some reasons in which case Distributed GUI will be the
winner against Browser Client ?
Yeah ... Browser
Hi to all,
I feel myself very stupid, but I've tried to do it in different ways
and I cannot do it.
I need to clear a text, to tokenize it, for instance to delete some
things and to transform some others:
.. at this time I use this regexp:
a) to delete
s/=+\n//g;
s/-+\n//g;
b) to transform
HI
I define a file the following way:
$FILE_HANDLE = somefile;
then I openit
open(FILEHANDLE);
i perform some operations..
and then I want to transfer this somefile to some other directory
but I am not able to use mv comand to do it
for e.g
` mv $FILE_HANDLE /home/pravesh ` ;
doesnt
Hi, pravesh
1 - You are saying mv somefile /home/pravesh !
2 - a file handle is *not* to be confused with a file name
try :
my $file_name = somefile;
open(FILE_HANDLE, $file_name) or die ...
...
your 'move' is now
`mv $file_name /home/pravesh`;
regards.
Pravesh Biyani a écrit :
HI
I
Hi,
I've downloaded Tie::File module from
http://search.cpan.org/author/MJD/Tie-File-0.93/
and given it a little try : works fine.
(even for me : Just Another Perl Newbie).
Thanks, José.
NYIMI Jose (BMB) a écrit :
Why not just use Tie::File module ?
Adriano Allora wrote:
b) to transform
s/-+/-/g;
s/\*+/\*/g;
s/\^+/\^/g;
s/\_+/\_/g;
s/ +/ /g; (this one doesn't works very well: at the end there are
several blank spaces)
and I used this one: s/\s+/ /g; but I understand this is not very
useful: I need to change a multiple
Hi!
I do not understand why my regex works , then does not.
regex:
my (dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Works!
Process Name = D4_jerry_5LM_1.91_BF
Returns:
Process Name DM4 15C035 5LM
Does NOT work:
Process Name = d4_jerry_5lm
Is there a better way to write
Perl gurus,
I was wondering if there is a one liner that searches a file for a
string and then removes that line and the following four lines in the
file?
Thanks,
Chad
--
Chad Kellerman
Jr. Systems Administrator
Alabanza Inc
410-234-3305
signature.asc
Description: This is a digitally
See inline comments
-Original Message-
From: Jerry Preston [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 10:36 AM
To: Beginners Perl
Subject: regex is working , then not?
Hi!
I do not understand why my regex works , then does not.
regex:
my (@dat) =
Jerry Preston wrote:
Hi!
I do not understand why my regex works , then does not.
regex:
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
^
This last underscore is expected.
Works!
Process Name = D4_jerry_5LM_1.91_BF
OK!
I see 2 as to 3.
Is there a way to make this regex smart enough to handle both string? Is
there a way that (\w+)_ can be changed to 2 to 10?
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Thanks,
Jerry
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
The Browser's interface cannot contain all the features and rings
and bells a normal GUI can (unless you use Java and use the browser
just to download and host the application)
What about Perl for the aforementioned functionality.
It's seems that Java is the Guru in GUI matters ? :(
José.
...
regex:
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Works!
Process Name = D4_jerry_5LM_1.91_BF
Returns:
Process Name DM4 15C035 5LM
Does NOT work:
Process Name = d4_jerry_5lm
...
Hi, is that 3rd _ intended ? If yes, it would work on Process Name =
Greetings,
I am trying to write a script that at one point needs to look at a number
and divide it by two. The results must always be an integer, but the
numerator can potentially be an odd number. What I want to do is if the
numerator is odd, increment it to the next highest even number. Is
Hi,
$num += $num % 2;
this increments $num if $num modulo 2 is 1
(ie. if $num was odd)
regards.
Zielfelder, Robert a écrit :
Greetings,
I am trying to write a script that at one point needs to look at a number
and divide it by two. The results must always be an integer, but the
Robert Zielfelder wrote:
I am trying to write a script that at one point needs to look at a number
and divide it by two. The results must always be an integer, but the
numerator can potentially be an odd number.
So you just want to divide by 2 rounding up the result.
use POSIX qw/ceil/;
Jerry Preston wrote:
Is there a way to make this regex smart enough to handle both string? Is
there a way that (\w+)_ can be changed to 2 to 10?
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Use the split function instead.
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL
perl -e 'printf %.0d\n, $ARGV[0]/2 if @ARGV' 5
Weird why doesn't this work they way I expect it to?
it returns 2 not 3.
-Original Message-
From: Zielfelder, Robert
[mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 10:58 AM
To: Perl Beginners List (E-mail)
Subject: Odd
From: NYIMI Jose (BMB) [EMAIL PROTECTED]
The Browser's interface cannot contain all the features and rings
and bells a normal GUI can (unless you use Java and use the browser
just to download and host the application)
What about Perl for the aforementioned functionality.
It's seems that
From: Zielfelder, Robert
[EMAIL PROTECTED]
I am trying to write a script that at one point needs to look at a
number and divide it by two. The results must always be an integer,
but the numerator can potentially be an odd number. What I want to do
is if the numerator is
On Oct 9, Nikola Janceski said:
perl -e 'printf %.0d\n, $ARGV[0]/2 if @ARGV' 5
Weird why doesn't this work they way I expect it to?
it returns 2 not 3.
Blame C and the IEEE standards.
--
Jeff japhy Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734
Adriano Allora wrote:
Hi to all,
Hello,
I feel myself very stupid, but I've tried to do it in different ways
and I cannot do it.
I need to clear a text, to tokenize it, for instance to delete some
things and to transform some others:
.. at this time I use this regexp:
a) to delete
On Wednesday, October 9, 2002, at 05:28 AM, NYIMI Jose (BMB) wrote:
Do you have some reasons in which case Distributed GUI will be the
winner against Browser Client ?
Sure, tons. Neither Photoshop nor Warcraft III are going to see a HTML
interface in their next revision. Don't get me
On 9 Oct 2002, chad kellerman wrote:
Perl gurus,
I was wondering if there is a one liner that searches a file for a
string and then removes that line and the following four lines in the
file?
Any particular reason for a one-liner?
perl -i~ -pe '((/string/and$ln=$.)..($.-$ln==4))undef
Jerry Preston wrote:
Hi!
Hello,
I do not understand why my regex works , then does not.
regex:
my (@dat) = /(\w+\s+\w+\s+)=\s+(\w+)_(\w+)_(\w+)_/;
Works!
Process Name = D4_jerry_5LM_1.91_BF
Returns:
Process Name DM4 15C035 5LM
Does NOT work:
Process Name =
I am trying to create a graph showing que length in relation to time. My
problem is that the script below does not put the time in the x-axis, it
just puts 5,10,15,20 etc. I think the problem is with the x axis commands.
I've changed the x_tick_number to auto and null, but the actual values
On Wednesday, October 9, 2002, at 07:08 AM, Jenda Krynicky wrote:
Yeah ... Browser Client applications tend to take longer to do
anything in.
Of course, this can be as much a fault of bad interface design as the
medium.
The interface cannot contain all the features and rings
and bells a
Chad Kellerman wrote:
I was wondering if there is a one liner that searches a file for a
string and then removes that line and the following four lines in the
file?
grep 'string' -A 4 yourfile.txt | grep -v -f - yourfile.txt
:-)
John
--
use Perl;
program
fulfillment
--
To
Robert Citek wrote:
Can someone show me an example of how I can mix long and short options with
Getopt?
I would like to pass options to a perl script that can take both short and
long options. For example, all of these commands work (this is GNU tar):
# tar -tzvf foo.tar.gz
# tar
from some modules,i found this expression if ($self-verbose) .
is this verbose is a special method or something else?
thanks
-
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos, more
faith.yahoo.com
Hello,
The documentation for GetOpt::Long on CPAN includes a section on configuring
the module. Several properties of interest to be configured are auto_abbrev,
bundling, and bundling_override. Says the blurb on the bundling description,
for example:
Enabling this option will allow
what is the meaning of $RIDLINE = 'RID\s+=\s+(\d+-\d+-\d+)';
i found it from the begin block of a module.
thanks
-
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos, more
faith.yahoo.com
It might help to say what module you found it in, since that would supply more
context. Most generally, it looks like $RIDLINE is going to be put into a
regular expression, perhaps something along the lines of
m/$RIDLINE/
If you are asking about the \s+ sort of notation, then you need to
Supplying module names makes answering it easier to give a better answer.
Idiomatically, $self usually refers to the scalar being blessed into a class,
in other words, an object. So $self-verbose is indeed calling a method on
the object using the indirect syntax, though whether or not this
Jean Padilla [EMAIL PROTECTED] wrote:
Hi, pravesh
1 - You are saying mv somefile /home/pravesh !
2 - a file handle is *not* to be confused with a file name
Actually - Perl will let you do
our $FH = 'path';
open FH or die...; # open FH, '', $FH
Doesn't work with 'my' variables, though.
If I have an object and I want to increase it's functionality by
upgrading/promoting it to a subclass if certain conditions are met
during a method call, could/should I use something like:
sub some_method {
my $self = $_[0];
# ...
if (PROMOTE_CONDITION) {
On Wed, Oct 09, 2002 at 02:34:49PM -0500, James Edward Gray II wrote:
If I have an object and I want to increase it's functionality by
upgrading/promoting it to a subclass if certain conditions are met
during a method call, could/should I use something like:
sub some_method {
my
--- James Edward Gray II [EMAIL PROTECTED] wrote:
If I have an object and I want to increase it's functionality by
upgrading/promoting it to a subclass if certain conditions are met
during a method call, could/should I use something like:
sub some_method {
my $self = $_[0];
On Wed, Oct 09, 2002 at 02:28:58AM -0700, Hello Buddy wrote:
What I am facing now is when I write to format text file, suppose I was
currently in line 10 for my formatted text file and I want to append some
word in line 5 of formatted text file.
Please see perldoc -q line in a file, or
Hi,
@array = qx{egrep -n '\{' file);
foreach $el (@array)
{
($num,@other} = split(/\:/,$el);
$thenum{$num} = $num;
}
foreach $ele (sort keys %thenum)
{
print$ele\n;
}
except this one sort by string and not by integer, so 100 is before 99
Do you have an idea to sort that by interger and not by
Replace the following
foreach $ele (sort keys %thenum
with
foreach $ele (sort {$a = $b} keys %thenum)
This will do ascending numeric or if descending switch the a and b around.
Wags ;)
-Original Message-
From: P lerenard [mailto:[EMAIL PROTECTED]]
Sent:
see bottom...
-Original Message-
From: P lerenard [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 09, 2002 1:21 PM
To: [EMAIL PROTECTED]
Subject: sort a hash
Hi,
@array = qx{egrep -n '\{' file);
foreach $el (@array)
{
($num,@other} = split(/\:/,$el);
$thenum{$num} = $num;
}
thanks working fine
From: Wagner, David --- Senior Programmer Analyst --- WGO
[EMAIL PROTECTED]
To: 'P lerenard' [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: RE: sort a hash
Date: Wed, 9 Oct 2002 15:25:23 -0500
Replace the following
foreach $ele (sort keys %thenum
with
On Wed, Oct 09, 2002 at 08:21:27PM +, P lerenard wrote:
except this one sort by string and not by integer, so 100 is before 99
Do you have an idea to sort that by interger and not by string, 99 before
100?
See perldoc -f sort. It has many fine examples of how to sort various types
of
thank you all
really really quik answer
Pierre
From: Michael Fowler [EMAIL PROTECTED]
To: P lerenard [EMAIL PROTECTED]
CC: [EMAIL PROTECTED]
Subject: Re: sort a hash
Date: Wed, 9 Oct 2002 12:33:28 -0800
On Wed, Oct 09, 2002 at 08:21:27PM +, P lerenard wrote:
except this one sort by
thank you all
special thanks for the first 3 on the podium
Pierre
From: Mark Anderson [EMAIL PROTECTED]
To: P lerenard [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: RE: sort a hash
Date: Wed, 9 Oct 2002 13:28:40 -0700
see bottom...
-Original Message-
From: P lerenard [mailto:[EMAIL
Hello everyone,
The following is from page 75 in the Camel:
List assignment in scalar context returns the number of elements produced by
the expression on the iright/i side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
It goes on to explain how this is useful but
On Wed, Oct 09, 2002 at 02:16:52PM -0700, nkuipers wrote:
When I first saw this, I worked out the assignment where $a and $b each
get a 7 and the third 7 is discarded, then $x gets the last value in the
list of $a and $b because of the comma operator for list literals in a
scalar context...or
The following is from page 75 in the Camel:
List assignment in scalar context returns the number of elements produced by
the expression on the iright/i side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
why. how.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
James Edward Gray II wrote:
If I have an object and I want to increase it's functionality by
upgrading/promoting it to a subclass if certain conditions are met
during a method call, could/should I use something like:
sub some_method {
my $self = $_[0];
# ...
if (PROMOTE_CONDITION) {
Nkuipers wrote:
The following is from page 75 in the Camel:
List assignment in scalar context returns the number of elements produced
by the expression on the iright/i side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
can you guess what $x is now:
$x = ($a,$b)
On Wed, Oct 09, 2002 at 03:22:20PM -0700, nkuipers wrote:
The following is from page 75 in the Camel:
List assignment in scalar context returns the number of elements produced by
the expression on the iright/i side of the assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
just curious:
if you want child's functionality, why wouldn't you want to have the
child
object in the first place?
Glad, you asked; I would love a second opinion! My server manages
vanilla Telnet connections with a Connection
After trying my hand at perl, realizing it was above my head, going back
at starting with python, and now trying again at perl this is my first
(failed) attempt at a user-pass program attempt, except it never accepts
the username. What is wrong with it?
%up = {
'kyle' = 123,
'jason' = 123,
Nkuipers [EMAIL PROTECTED] wrote:
Hello everyone,
The following is from page 75 in the Camel:
List assignment in scalar context returns the number of elements
produced by the expression on the iright/i side of the
assignment:
$x = ( ($a, $b) = (7,7,7) ); #set $x to 3, not 2
On Thu, Oct 10, 2002 at 12:01:31AM +, Kyle Babich wrote:
%up = {
'kyle' = 123,
'jason' = 123,
'chelsea' = 123,
'john' = 123,
'cheryl' = 123
};
This is your problem. You've constructed an anonymous hash and assigned it
to %up. You should be using parens, not curly braces:
James Edward Gray II wrote:
On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
just curious:
if you want child's functionality, why wouldn't you want to have the
child
object in the first place?
Glad, you asked; I would love a second opinion! My server manages
vanilla Telnet
P Lerenard wrote:
Hi,
Hello,
@array = qx{egrep -n '\{' file);
foreach $el (@array)
{
($num,@other} = split(/\:/,$el);
$thenum{$num} = $num;
}
foreach $ele (sort keys %thenum)
{
print$ele\n;
}
except this one sort by string and not by integer, so 100 is before 99
Do you have an
Thanks a lot for the advice! I'll factor this into my thinking and see
what I come up with.
James
On Wednesday, October 9, 2002, at 07:07 PM, david wrote:
James Edward Gray II wrote:
On Wednesday, October 9, 2002, at 05:15 PM, david wrote:
just curious:
if you want child's
i use solaris and ihave no root right.the version of perl5.005_03
in a simple script if i try to add use warnings,it will say Can't locate warnings in
inc(inc..)
instead if i use perl -w my.pl,it will give me the warning information. so how can i
modify my configuration or what modules
Stanley wrote:
i use solaris and ihave no root right.the version of perl5.005_03
in a simple script if i try to add use warnings,it will say Can't locate
warnings in @inc(@inc..)
instead if i use perl -w my.pl,it will give me the warning information. so
how can i modify my
both #!/usr/bin/perl -w and perl -w my.pl will do the warnings work,but
use warnings will throw exception.
if i setup a file called warnings.pm(it only conatins 1) in my lib and don't use
directive or option,there is no warning and exception
stanley
nkuipers wrote: If you put the -w flag
Todd
how do you turn off the warning ?
stanley
i use solaris and ihave no root right.the version of perl5.005_03
in a simple script if i try to add use warnings,it will say Can't locate
warnings in @inc(@inc..)
instead if i use perl -w my.pl,it will give me the warning
On Wed, Oct 09, 2002 at 07:55:13PM -0700, stanley wrote:
#!/usr/bin/perl -w
does it still throw an exception or do the warnings work?
-w on the shebang or command lines will work with any version of Perl. The
use warnings pragma was added in 5.6.0, and this is why you're getting the
error.
Nyimi Jose wrote:
The Browser's interface cannot contain all the features and rings
and bells a normal GUI can (unless you use Java and use the browser
just to download and host the application)
What about Perl for the aforementioned functionality.
It's seems that Java is the Guru in GUI
Hello,
Can someone help me with creating a script to return certain information from a
Postgres database to a drop down box on a webpage?
#!/usr/bin/perl
use CGI;
use DBI;
#Define connection values
$DBSource = 'dbi:Pg:dbname=mydb';
$DBUsername = 'test';
$DBAuth = 'test';
#Open db connection
how can i pass a hash variable to a subrotine?
such as
%a=(m=1,n=2);
%b=(k=4,j=6);
sub givename(%a)
{
#here how can make %c get the subroutine argument(a hash variable))
my %c=???;
print %c;
}
-
Do you Yahoo!?
Faith Hill - Exclusive Performances,
On Wed, 9 Oct 2002, stanley wrote:
how can i pass a hash variable to a subrotine?
such as
%a=(m=1,n=2);
%b=(k=4,j=6);
sub givename(%a)
{
#here how can make %c get the subroutine argument(a hash variable))
my %c=???;
print %c;
}
Read through
perldoc perlsub
--
To
On Oct 9, stanley said:
sub givename(%a)
DO NOT try to put variables in the declaration of a function. Unless you
are into HEAVY MAGIC, your subroutine declarations (or definitions) should
look like
sub function_name {
# ...
}
No () there. When you CALL the function, THEN you use
88 matches
Mail list logo