Hi,
I thought this would be simple...
I want to supply the name of a file on the command line when executing a
script. Unfortunately, I'm getting an error that says that @ARGV is
uninitialized.
How do you initialize @ARGV? How do you specify command line arguments?
I'm using Windows XP,
Sidharth wrote:
hi all,
Hello,
i am new to this group.
Please set your software to limit line lengths to less than 80
characters and use plain ASCII text instead of quoted-printable MIME.
hope get maximum benifit out of this group.
currently i am writting a script wherein i hav to
Rmck wrote:
Hi
Hello,
I have the .h file of a program that spits out a data file
which is Binary Output. The binary file is a series of fixed
length records. In C, each record has the format which is
in the script.
I thought I could use unpack to read the data, and I am
having no
On Jun 2, Larry Wissink said:
I want to supply the name of a file on the command line when executing a
script. Unfortunately, I'm getting an error that says that @ARGV is
uninitialized.
How do you initialize @ARGV? How do you specify command line arguments?
You don't initialize @ARGV. It
Hello All,
I am trying to split a string with the / ( forward slash) as the marker.
$mystring = abcde/fghi
split (///,$mystring) -- gives me compile error
split (/\//,$mystring) -- gives me abcdefghi
how do i specify / as the delimitter.
On Jun 3, 2004, at 8:11 AM, Singh, Ajit p wrote:
Hello All,
I am trying to split a string with the / ( forward slash) as the
marker.
$mystring = abcde/fghi
split (///,$mystring) -- gives me compile error
split (/\//,$mystring) -- gives me abcdefghi
I hope not. The second one is fine:
perl -e
Hi Singh,
Try this:
$mystring = abcde/fghi;
@a = split (/\//, $mystring);
print $a[0]\n;
print $a[1];
Regards,
Cristi Ocolisan
-Original Message-
From: Singh, Ajit p [mailto:[EMAIL PROTECTED]
Sent: 3 iunie 2004 16:11
To: Singh, Ajit p; [EMAIL PROTECTED]
Subject: splitting with
Works for me
#!/usr/bin/perl
#
#
use strict;
use Data::Dumper;
my $mystring = abcde/fghi;
my @a = split (/\//,$mystring);
print Dumper([EMAIL PROTECTED]);
__END__
OUTPUT
$VAR1 = [
'abcde',
'fghi'
];
Ram
On Thu, 2004-06-03 at 18:41, Singh, Ajit p wrote:
Hello
I think whats happening is your printing the entire array @result_from_split...do
@result_from_split[0] and so on..
Mandar
Original message
Date: Thu, 3 Jun 2004 08:19:45 -0500
From: James Edward Gray II [EMAIL PROTECTED]
Subject: Re: splitting with special characters
To: Singh,
Greetings;
Are you using ActiveState perl?
I just did extensive testing using ActiveState perl on XP-Pro
and I get the exact same results.
C:\DATAFI~1argv.pl testfile
gives the unitialized variable message but
C:\DATAFI~1perl argv.pl testfile
works as expected.
I also tested
-Original Message-
From: Singh, Ajit p [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 03, 2004 3:11 PM
To: Singh, Ajit p; [EMAIL PROTECTED]
Subject: splitting with special characters
Hello All,
I am trying to split a string with the / ( forward slash) as
the marker.
I am having trouble creating a modules which splits its functions and
variables between two files in two separate directories.
I want to have a set of global functions (i.e. open database connection...)
which would live in the main Perl path, and a local configuration file
(containing Host name,
Andrew Koebrick wrote:
I am having trouble creating a modules which splits its functions and
variables between two files in two separate directories.
I want to have a set of global functions (i.e. open database
connection...) which would live in the main Perl path, and a local
hi all,
i want to know how to execute makefile from the perl script ,its a sort of urgent .
thank u all in advance...
-
There is nothing in a caterpillar that tells
Thre ways...
exec('make');
system('make');
`make`;
The three differ slightly, you might want to check the docs.
Breifly...
exec - executes the command, but your Perl program ends where it is.
system - executes the command, waits for it to finish, returns the return
code.
`` (backticks) -
hi all ,
consider the contentes of file as below
===
tools:
# Phony target (prerequisite of .PHONY).
# Implicit rule search has not been done.
# File does not exist.
# File has not been updated.
# commands to execute (from `Makefile', line 52):
@$(ECHO)
I was looking at the Mail::Sendmail module from CPAN and I did not find
anything that showed printing a body. How do I print a body of text data
from a variable?
The highlighted code is not working but I was playing with it to get this
message with the scaler $ftapes listed.
thank you!
##
[EMAIL PROTECTED] wrote:
I was looking at the Mail::Sendmail module from CPAN and I did not
find anything that showed printing a body. How do I print a body of
text data from a variable?
I haven't used Mail::Sendmail, but it looks like the message body goes in
the Message entry of the hash
Can anyone tell me what is slowing down my script below? The SQL statement by itself
executes in less than a second (outside of this Perl program), but this script takes
about 10 seconds to come up..
Note: I'm just learning, so I'm sure there's a lot that could be improved...
Thanks.
Nancy
Can anyone tell me what is slowing down my script below? The SQL
statement by itself executes in less than a second (outside of this Perl
program), but this script takes about 10 seconds to come up..
Note: I'm just learning, so I'm sure there's a lot that could be
improved...
Gonna need
I'm sorry... here it is
=
#!c:/activeperl/bin/perl
use strict;
use warnings;
use DBI;
use DBD::Oracle;
use CGI qw(:standard *table *Tr );
use CGI::Carp qw(fatalsToBrowser);
my $dbh = DBI-connect('DBI:Oracle:sid', 'uid', 'pw') || die Couldn't connect to
database: . DBI-errstr;
How about:
my $myvar = qq(the text you wish to parse);
$myvar=~s/tools:(.*?)# Not a//sg; print $1;
John
From: Sidharth [EMAIL PROTECTED]
hi all ,
consider the contentes of file as below
===
tools:
# Phony target (prerequisite of .PHONY).
#
ok here it what I did and it is emailing sproadically. Also it is not
placing the array data into the email body???
## Set pragmas
use strict;
use Mail::Sendmail;
## Set and edit variables
my $foreigntapes=/usr/local/log/foreign_tapes.log;
delete $ENV{'IFS'};
If Clause is literal and the numbers are in numerical order from A to N
(where both A and N are known), I would use:
my $longlist = join '|', map { Clause$_ } (1..20);
If Clause is literal and the numbers are not numerical:
my $longlist = join '|', map { Clause$_ } qw(5 20 3 6 9 11 7 13 19);
- Original Message -
From: Sidharth [EMAIL PROTECTED]
Newsgroups: perl.beginners
To: [EMAIL PROTECTED]
Sent: Thursday, June 03, 2004 3:44 PM
Subject: printing contents between lines
hi all ,
consider the contentes of file as below
[snip file contents]
how to print all the line
- Original Message -
From: Chris Charley [EMAIL PROTECTED]
Newsgroups: perl.beginners
To: [EMAIL PROTECTED]
Sent: Thursday, June 03, 2004 7:09 PM
Subject: Re: printing contents between lines
- Original Message -
From: Sidharth [EMAIL PROTECTED]
Newsgroups: perl.beginners
hi,
i've inherited my company's mail server (the tech guy quit), and i need to manage a
'cleanup'.
in doing so, i've come to understand that a perl script will best do what i need.
as i'm new to perl, i'm hoping to get help with a specific howto example from someone
here that'll get me started
Greetings;
Is there a shortcut or option or something that will let me
not have to type \n; so often? I am not the worlds best
typist and I need all the help I can get!
Many TIA,
Dennis
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On 6/3/2004 10:54 PM, Dennis G. Wicks wrote:
Greetings;
Is there a shortcut or option or something that will let me
not have to type \n; so often? I am not the worlds best
typist and I need all the help I can get!
You can use here-documents (see `perldoc perldata`)
print EOM;
Hello,
World!
EOM
you
Here's another way to do it, and the nice thing about this way is that
you can reuse the sub later. This subroutine will print every line
starting after the $start phrase and until it finds the $end phrase.
###
PrintSection(myfile.txt,tools:,not a
Randy W. Sims mailto:[EMAIL PROTECTED] wrote:
: On 6/3/2004 10:54 PM, Dennis G. Wicks wrote:
:
: You can use here-documents (see `perldoc perldata`)
:
: print EOM;
: Hello,
: World!
: EOM
:
:
: you could also define a constant:
:
: use constant eol = \n;
:
: print 'Hello,' . eol;
: print
31 matches
Mail list logo
