r...@linuxstuff.pl wrote:
> On Mon, Mar 18, 2013 at 07:20:37PM GMT, Hal Wigoda wrote:
>> Any version of Sun Solaris should already come with the current Perl.
> I guess that depends what you mean by "current"
Version 5 ;-)
--
To unsubscribe, e-mail: beginner
- Some Information :
OS : SUSE Linux SP3.
Perl version : perl-5.8.8-14.10
Any help is greatly appriciated.
--
Thank and best regards,
Jack Vo
Hi all,
Sorry about that.
Thank and best regards,
Jack Vo
On 7/26/2012 5:14 PM, Rob Coops wrote:
On Thu, Jul 26, 2012 at 12:05 PM, Jack Vo wrote:
Hi all,
I need to compress many files in a directory on server. I use "awk" and
"zip" command to compress these files.
| awk '{ system("zip /tmp/trace_file" $9)}'*
# ls -latr /tmp/ | grep trace_file
#
--
Thank and best regards,
Jack Vo
, 2012 11:46 PM
To: Jack Maney
Cc: beginners@perl.org
Subject: Re: regular error
i am very sorry ！ i am intend to parse variable $a by the regular variable
$b . in below way!
$a="abc[0]";
$b="
I don't understand what you're trying to say or do. Exactly what error message
are you getting?
-Original Message-
From: xiyoulaoyuanjia [mailto:xiyoulaoyuan...@gmail.com]
Sent: Wednesday, July 11, 2012 10:54 PM
To: beginners@perl.org
Subject: regular error
*hi all：*
* i have an error
How about:
use strict;
use warnings;
foreach my $i(1..10){$i="0" . $i if length($i)==1;print "$i\n";}
-Original Message-
From: lina [mailto:lina.lastn...@gmail.com]
Sent: Monday, June 11, 2012 8:49 AM
To: beginners@perl.org
Subject: how to get a sequence of 01 02 ..
Hi,
$ for i in `s
I'll expand upon the same advice that I gave to you privately in an email: slow
down. Use Data::Dumper to look at the data that you're capturing. Look at
documentation to get the contents of a cell. If you're going to use code that
you got from somewhere else, don't use it unless you can desc
ProTip: If you're going to ask for help, don't insult and dismiss out of hand
the findings of those who take the time to help you.
-Original Message-
From: John W. Krahn [mailto:jwkr...@shaw.ca]
Sent: Tuesday, June 05, 2012 2:18 AM
To: Perl Beginners
Subject: Re: subroutine returning dat
Okay, let's go through this line by line:
@{$sheet->{Cells}$row};
This line is, for all practical purposes, a no-op. You aren't assigning this
array to anything, nor are you doing anything with it. Not to mention that I'm
not sure what you're doing on the inside...did you mean $sheet->{Cells}
What you need is the "x" operator
(http://perldoc.perl.org/perlop.html#Multiplicative-Operators):
So, the following command:
print "*" x 20 . "\n";
produces the following output:
Jack
-Original Message-
From: lina [mailto:lina.las
ile->name("*.pl");
$plf->start("./");
while ( my $perl_file = $plf->match ){
print "$perl_file\n";
}
If you're familiar with DBI, you can think of $plf as a statement handle,
setting up the rules ('->file->name("*.pl"
>From the command line, type:
cpan Mail::Sender
-Original Message-
From: viknesh salivahanan [mailto:viknesh@gmail.com]
Sent: Friday, April 20, 2012 2:46 PM
To: beginners@perl.org
Subject: how to install a perl module which was downloaded in windows
Hi Gurus,
Need a help with an i
Somu,
What you're looking for is PAR::Packer
(http://search.cpan.org/dist/PAR-Packer/lib/PAR/Packer.pm), and in particular,
the PAR Packager application pp
(http://search.cpan.org/dist/PAR-Packer/lib/pp.pm).
Sincerely,
Jack
-Original Message-
From: Somu [mailto:som@gmai
I used a tab, then a pipe, both produced the same results.
LAWNS|123|GOOD
LAWNS|12|GOOD
- Original Message -
From: "Gunnar Hjalmarsson"
To:
Sent: Sunday, February 15, 2009 9:16 AM
Subject: Re: Add Line break when first of a line changes
Jack Butchie wrote:
I did som
us"
To:
Sent: Sunday, February 15, 2009 8:07 AM
Subject: Re: Add Line break when first of a line changes
On Sun Feb 15 2009 @ 7:25, Jack Butchie wrote:
I have a txt file of products that I would like to be able to insert a
blank line whenever the name of the product changes, to make it
a line changes
On Sun Feb 15 2009 @ 7:25, Jack Butchie wrote:
I have a txt file of products that I would like to be able to insert a
blank line whenever the name of the product changes, to make it easier to
read. I found this srcipt hunting about but I don't know how to apply it
to the text
I have a txt file of products that I would like to be able to insert a blank
line whenever the name of the product changes, to make it easier to read. I
found this srcipt hunting about but I don't know how to apply it to the text
file. I've tried all kinds of different things but just don't get
s, self serving statement. One can at least
try to help those with physical challenges. How would you like it
if you found yourself in Octavian's situation and some one said
that to you?
--
Jack Gates
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Tuesday 28 October 2008 09:20:30 pm Rob Dixon wrote:
> Jack Gates wrote:
> > On Tuesday 28 October 2008 10:06:44 am Jenda Krynicky wrote:
> >> We can't care about ALL those who read it. The best we can do
> >> is to care about MOST. I know it's inconve
s, self serving statement. One can at least
try to help those with physical challenges. How would you like it
if you found yourself in Octavian's situation and some one said
that to you?
--
Jack Gates
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Wouldn't it be more productive if what the question was was actually
inserted into the subject area. instead of a generic term. Subscribers could
instantly see if it's something they might be interested in instead of
opening the email to see what "Simple Questions" actually is.
- Original
On Friday 26 September 2008 03:12:12 pm John W. Krahn wrote:
> Jack Gates wrote:
> > On Friday 26 September 2008 12:48:14 pm Jack Gates wrote:
> >> s!(<|)!$1\L$2\E!g;
> >> or
> >> s/(<|<\/)([^!][A-Z0-9 ]+>)/$1\L$2\E/g;
> >>
> >> Th
On Friday 26 September 2008 03:11:48 pm Rob Dixon wrote:
> That's fine, I shall stop trying to help you altogether. You are
> very rude and don't want to accept correction.
>
> Rob
You are the rude one. You don't read what is written and you ignore
simple requests that are in plain sight.
Becaus
On Friday 26 September 2008 03:00:15 pm Rob Dixon wrote:
> Jack Gates wrote:
> > On Friday 26 September 2008 01:23:23 pm John W. Krahn wrote:
> >> Jack Gates wrote:
> >>> s!(<|)!$1\L$2\E!g;
> >>> or
> >>> s/(<|<\/)([^!][A-Z0-9 ]+&g
On Friday 26 September 2008 02:52:45 pm Rob Dixon wrote:
> Jack Gates wrote:
> > On Friday 26 September 2008 01:20:29 pm Rob Dixon wrote:
> >> Jack Gates wrote:
> >>> s!(<|)!$1\L$2\E!g;
> >>> or
> >>> s/(<|<\/)([^!][A-Z0-9 ]+>)/$
On Friday 26 September 2008 12:48:14 pm Jack Gates wrote:
> s!(<|)!$1\L$2\E!g;
> or
> s/(<|<\/)([^!][A-Z0-9 ]+>)/$1\L$2\E/g;
>
> The RE above captures and replaces all HTML tags with lowercase
> as desired except for any tag that has only one letter such as
>
On Friday 26 September 2008 01:23:23 pm John W. Krahn wrote:
> Jack Gates wrote:
> > s!(<|)!$1\L$2\E!g;
> > or
> > s/(<|<\/)([^!][A-Z0-9 ]+>)/$1\L$2\E/g;
> >
> > The RE above captures and replaces all HTML tags with lowercase
> > as desired
On Friday 26 September 2008 01:20:29 pm Rob Dixon wrote:
> Jack Gates wrote:
> > s!(<|)!$1\L$2\E!g;
> > or
> > s/(<|<\/)([^!][A-Z0-9 ]+>)/$1\L$2\E/g;
> >
> > The RE above captures and replaces all HTML tags with lowercase
> > as desired except for
s!(<|)!$1\L$2\E!g;
or
s/(<|<\/)([^!][A-Z0-9 ]+>)/$1\L$2\E/g;
The RE above captures and replaces all HTML tags with lowercase as
desired except for any tag that has only one letter such as ,
or
It will get the , and
It properly ignores the tag
What is the correct way to write the above RE
These first four lines are how every Perl script I write starts.
#!/usr/bin/perl -T
use strict;
use warnings;
use diagnostics -verbose;
my ($oldfile) = $ARGV[0] =~ /^([-a-zA-Z0-9._\/]+)$/;
die "bad old filename" unless $oldfile;
my ($newfile) = $ARGV[1] =~ /^([-a-zA-Z0-9._\/]+)$/;
die "bad new f
On Monday 22 September 2008 08:42:51 am Mr. Shawn H. Corey wrote:
> On Mon, 2008-09-22 at 08:31 -0400, Jack Gates wrote:
> > Would you want to come along later and have to scroll to the bottom to
> > read
> > the first post. Scroll down a little as you read then scroll up to
&
On Monday 22 September 2008 08:18:27 am Rob Dixon wrote:
> Thomas Bätzler wrote:
> > Raymond Wan <[EMAIL PROTECTED]> wrote:
> >> I looked a bit for some etiquette list for this mailing list
> >> and couldn't find out. Perhaps it's out there somewhere?
> >
> > You could argue that in absence of any
; print "RB1 ".$RunningBack1Index." ";
> print "RB2 ".$RunningBack12ndex." ";
> $RunningBack2Index = $RunningBack2Index + 1;
> }
> $RunningBack1Index = $RunningBack1Index + 1;
>
On Saturday 20 September 2008 04:08:20 pm AndrewMcHorney wrote:
> $NumberQuarterbacks = 32;
> $NumberRunningBacks = 60;
>
> $QuarterbackIndex = 0;
>
> while ($QuarterbackIndex < $NumberQuarterbacks)
> {
> $Runningback1Index = 0;
> while ($RunningBack1Index < $NumberRunningBacks)
> {
After getting some sleep (definitely the smartest thing I did) and (then
looking at your code sample again)
On Thursday 18 September 2008 04:28:07 am Dr.Ruud wrote:
> > my $oldfile = $ARGV[0];
After I adjusted the RE content /^([ in here ]+)$/
> my ($oldfile) = $ARGV[0] =~ /^([a-z]+)$/;
> di
appable errors may be trapped using the eval operator. See
perlfunc/eval. In almost all cases, warnings may be selectively
disabled or promoted to fatal errors using the warnings pragma.
See warnings.
Insecure dependency in open while running with -T switch at
/home/jack/bin/
On Wednesday 17 September 2008 09:46:27 pm [EMAIL PROTECTED] wrote:
> Hello,
>
> I use CGI::Session in some of my CGI scripts.
> How to delete user's session in web server automatically when he close
> the client browser?
> Thanks.
Since you are using a gmail account I know you know how to find go
On Wednesday 17 September 2008 04:03:55 pm [EMAIL PROTECTED] wrote:
> Hello
>
> I am looking for sample code where a user would enter a password. The key
> here is to either replace the characters entered with blanks or something
> like "*" for each character that is entered. I am sure this has bee
On Tuesday 16 September 2008 12:50:32 pm Vb wrote:
> What I'm trying to do is to create a program that reads through a
> certain directory and outputs the location of each file(both in the
> directory and subdirectorys) into a text file. I am completely new to
> Perl and under a time restriction so
SE CORRECT THEM FOR ME.
Thanks
JACK
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Friday, June 13, 2008 05:15 PM Pacific Standard Time
To: beginners@perl.org
Subject:Re: Unix command-line tools to edit SharePoint site?
Kelley,
I just
Hi
I hope someone will help me here.
I tried installing xls2csv. However, this conversion tool, requires the
following modules to be installed.
- Locale::Recode
- Spreadsheet::ParseExcel
- Spreadsheet::ParseExcel::FmtUnicode
- Text::CSV_XS
- Unicode::Map
I couldn't get through with CPAN. My se
Have been googling for some time now and every command I tried fails. I
want to use sed from the command line or use it in a windows batch file to
split on a pipe delimited file, windows server. The examples have \n as the
carriage return code, but all that happens is the pipe is replaced by t
Hi Group
I'm new to perl and haven't used it before. I'm still practising and trying
my best to know it. Anyway, I wanted to print the list of files in a
directory with their full pathnames. This script below worked fine but I
want to write it to a file. Can someone help me, please? I know it must
e?
I urgently need assistance as this is my first exercise that I'd like to do.
Kind regards,
John Jack
Munia,
Thank you very much !
Now everything is clear for me.
I know no use strict 'subs' allows bare word,
but I didn't know Perl would automatically quotes bareword ;)
Thank you again.
Paul and Paul,
Thank you very much !
I heard that OO module usually doesn't export anything,
but I just wanted the difference between use and use base.
Now almost everything is clear for me !
Just one thing, this code seems to work.
--
sts, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
wirh Windows XP SP2.
Thank you !
-- jackm
2007/7/18, Jack Minoshima <[EMAIL PROTECTED]>:
Hi!
N
Hi.
Please allow me to ask another silly question.
I wrote the program and it works fine.
Animal.pm
package Animal;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(speak);
sub speak {
print "I speak!\n";
}
1;
-
Hi!
Nice to see you.
I'm new to OOP Peal.
Let me ask you a silly question.
When I try to use 'use base', I encountered an problem.
I wrote this program;
--- Animal.pm
package Animal;
sub speak {
my $class = shift;
print "a $class goes "
My apologies. I didn't include the correct subject
> I have a file containeding data (example)
>
> I added the text line1 line2 line3 to the beginning of each line in the
> hopes I could do the following.
> I appended line1 line2 and line3 files to one file, but now I need to sort
> them correctl
I have a file containeding data (example)
I added the text line1 line2 line3 to the beginning of each line in the
hopes I could do the following.
I appended line1 line2 and line3 files to one file, but now I need to sort
them correctly to send these comands to an API transaction server to alter
da
Having a heck of a time Windows server
Want to find all lines with .| at end of line
Also, how would I replace .| with |
My problem is when using \ to make | a regular character, it never works.
file contains lines in this format
joe|TK123 .23 .B22 2004|
joe|TK123 .23 .B22 2004.|
--
To unsu
I work with library cataloguing records and am trying to accomplish this
amazing feat.
Trying is no problem, amazing feat is eluding me
I need to find all records with the same ISBN number (field 020)save all
matching records which will result in more than 1 record with the same ISBN,
then som
Have spent the last couple hours searching Internet, reading my perl books,
but I just can't figure it out.
Problem:
Our barcodes are 14 digits, however not all employees have a scanner when
associating the barcode with an item.
Barcodes are then manually entered and are not always entered correct
On 9/18/06, Emilio Casbas <[EMAIL PROTECTED]> wrote:
Hi,
I have this script;
---
use File::Find;
$File::Find::no_chdir = 0;
find(\&wanted, @ARGV);
sub wanted {
print "$File::Find::name\n" if(-d);
}
---
I want to do a directory search for a given ARG, but no a recurs
On 9/18/06, Ken Foskey <[EMAIL PROTECTED]> wrote:
I have a lot of files created by a (much too) complex script and the
user I am running with has a default group of 'staff' but I want all
files created to have grp which we create to ensure that only
authorised people have access to a particular
On 9/15/06, hOURS <[EMAIL PROTECTED]> wrote:
Hi everyone,
I posed a question about compiling a while ago and got this
response (below). It occurred to me that some of the text looked like
things one might type into the window (a DOS window I believe it's called)
that I run PERL pr
On 9/9/06, elite elite <[EMAIL PROTECTED]> wrote:
Does anyone know any good links on networking with
perl or on sockets?
check out docs for IO::Socket
How about books? Both at Amazon at the very least:
Network Programming with Perl
by Lincoln D. Stein,
Addison-Wesley Professional
Progr
er executing the vcvars32.bat.
Thanks
John
*"Jack Faley ( The Tao of Jack )" < [EMAIL PROTECTED]>* wrote:
Do these variables change while perl is running? Otherwise you could set
the
variables in the batch file and have it call perl.
On 9/8/06, john wright wrote:
>
> Hi
On 9/8/06, Charles K. Clarkson <[EMAIL PROTECTED]> wrote:
Michael Alipio wrote:
: ignore this one.. I've already figured out how.
Why not post your solution for the archives? Someone
else may run across your question during a search and
will not know the answer you found.
HTH,
Charles K.
Do these variables change while perl is running? Otherwise you could set the
variables in the batch file and have it call perl.
On 9/8/06, john wright <[EMAIL PROTECTED]> wrote:
Hi All,
I want to call vcvars32.bat from perl script and effectively borrow the
variables from that batch file. If
It's driving me bonkers and can't afford any more psychiatic bills. The data
is a saved .txt file when viewing from a website. The vendor will not give
us an actual file even though we payed a montly fee for use of the database.
I have around 5000 records that need to be converted to MARC catalogin
Wow, I'm really confused. I'm trying to remove duplicate lines from a marc21
text file. I have spent countless hours searching for scripts etc.
What I find frustrating while trying to learn Perl, is that most solutions
assume you know what to do. For example, someone gives the code to find an
, but not sure.
can sombody help me out
rgds
jack
-
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
HI all,
I want to grep only from $var , i want in a variable $y.
$var="Owner: X : rwx (all)";
How to split it?
rgds
j
-
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
Hi All,
I need help in greping only Y from $var , the output should be in variable $x.
$var=Owner: Y : rwx (all)
rgds
jack
-
Do you Yahoo!?
New and Improved Yahoo! Mail - Send 10MB messages!
ment in perl.
TIA
jack
__
Do you Yahoo!?
Yahoo! Mail - You care about security. So do we.
http://promotions.yahoo.com/new_mail
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http:/
nt in perl.
rgds
jack
-
Do you Yahoo!?
New and Improved Yahoo! Mail - Send 10MB messages!
ent in perl.
TIA
jack
-
Do you Yahoo!?
New and Improved Yahoo! Mail - 100MB free storage!
Hi All,
I have an output from a cammand
I have to split and get only hostname in below output
* av_test \\hostname\views\av_test.vws
__
Do you Yahoo!?
Win a $20,000 Career Makeover at Yahoo! HotJobs
http://hotjobs.swee
I ran the above scrip on commandline, it worked. But when I ran it
from a browser, it failed and I found a message in the log file saying
that $content is undef.
Any clue?
Thanks,
jack
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTEC
Hi Randy,
Thanks for reply!
It is strage. When I tried the script on another machine, it works the way
you described. Anything wrong about my perl or my OS (Linux 8)?
Jack
On Fri, 16 Jan 2004, Randy W. Sims wrote:
> On 1/16/2004 11:03 AM, Jack Chen wrote:
>
> > Hi,
>
ta::Dumper;
print Dumper(@array);
I got the contents of it.
Thanks,
Jack
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
It would have been nice if the
above would work without the alert box.
Any help would be greatly appreciated.
Thanks,
Jack
__
Post your free ad now! http://personals.yahoo.ca
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
form, I'd
like to call a CGI script and
redirect its output to the left frame. Could anyone
please tell me how I can do this?
Any help would be greatly appreciated.
Thanks,
Jack
__
Post your free ad now! http://per
Hello,
In my perl CGI script, I'm trying to extract the PID
that corresponds to it.
How do I do this? I'm also trying to extract the
timestamp.
How come it's not possible to do something like:
print "";
print `time`;
print "";
Any help w
> I am writing a script that will read from a file named myfiles not stdin and print
>the lines containing the following words "everywhere" or 'nowhere.
>
>
>
> #!/usr/bin/perl
> #use strict
> while (<>) {
> chomp;
> if (/^everywhere$|^nowhere$/)
> print
>
> }
>
> How do I invoked
Thought there is some easy way bu could not find.
Thanks!
Jack
Jack Chen, Stein Lab, Cold Spring Harbor Labs
1 Bungtown Road, Cold Spring Harbor, NY, 11724
Tel: 1 516 3676904; e-mail: [EMAIL PROTECTED
Hello to all! Somebody could say to me as I can insert the content of a text
file in a page HTML? What happens is that this file is updated frequently
and desire to print its content in a page Web.
Could be... print " file.txt ";?
Any advice well is received. Thanks
_
caped. And use that copy for the e-mail.
Like so:
...
if (param("brand")) {
my $brand = param("brand");
chomp $brand;
my $brand2 = param("brand");
chomp $brand; #original string for E-mail
$brand2 =~ s/\*/\\\*/g; # escapes any as
Why yes you can! I'm posting this from Outlook Express and heck if OE can
do it, anything can. :)
the News Server is: nntp.perl.org
Once you download the (pleasantly short) list of newsgroups, you'll see
perl.beginners in there.
Yes! I answered a question! And I may even be right!
Now if
I'm trying to create a CSV file from the text data below. Lines
containing High and Low Tide data have 9 fields, lines having
sunrise/sunset and lunar data have 8 fields.
How you differentiate between the two conditions?
2000-12-03 11:30 AM PST 9.39 feet High Tide
2000-12-03 4:15 PM PST S
da Dollars,0.652225,1.53321
The above dates should fall between 6/14 and 6/20.
Thanks,
Jack
#!/usr/bin/perl
#
# cur2csv.pl
#
use strict;
use vars qw($started);
use vars qw($cur_sym $cur_desc $usd_unit $units_usd);
use vars qw($year $month $mday $hour $minute $second $timezone);
use vars qw($conv_
r_sym is empty?
Thanks in advance,
Jack
Output from script:
<>
2000-12-29,16:16:19,PST
2000-12-29,16:16:19,PST
2000-12-29,16:16:19,PST
2000-12-29,16:16:19,PST,USD,United States Dollars ,1.0,1.0
2000-12-29,16:16:19,PST,EUR,Euro
,0.941
Here's the results that I get with the regex below. I don't know why
I'm getting the first three lines or why it stops after the seventh of
apx90 lines.
I'd appreciate any help in fixing this.
Thanks,
Jack
2000-12-29,16:16:19,PST
2000-12-29,16:16:19,PST
200
x I'm using:
($cur_sym, $cur_desc, $usd_unit, $units_usd) =
/^([A-Z]{3})+\s+([A-Za-z\s]{28})+\s+(\d+\.\d+)+\s+(\d+\.\d+)/;
As before I'm open to suggestion.
Thanks again,
Jack
d8.d10 (.00)
56-58 (3) spaces
59-78 d8.d10 (.00)
I tried to shorten it to match the $cur_sym only but couldn't get it
to work. I also tried the following:
($cur_sym, $cur_desc, $usd_unit, $units_usd) =
/^([A-Z]{3}) ([A-Za-z]{28}) (\d{7}\.\d{10}) (\d{7}\.\d{10})\s*$/;
Any suggestions?
JAck
currency.csv contains using the code below. The date has been
adjusted from 2000-12-30 00:16:19 UTC to PST. The rest of the file is
still not being processed.
2000-12-29,16:16:19,PST
#!/usr/bin/perl
#
# cur2csv.pl
#
use strict;
use vars qw($started);
use vars qw($quote_date $cur_sym $cur
Me wrote:
>
> Analysis of the code you attached.
>
> $quote_date = substr($_,0,79);
>
> The above line is pointless.
>
---> Agreed.
> The next couple lines are great:
>
> ($year, $month, $mday, $hour, $minute, $second, $timezone) =
> $quote_date = /^Rates as of (\d+).(\d+).(\d
1. I want to read in a text file and match any line that begins with
three capital letters followed by a space. i.e. "USD "
How do you do that?
2. I need to ignore any blank lines, lines containing all "---", lines
containing all "===".
Again, how?
Thanks in advance,
Jack
and below the actual working area of the file.
I would appreciate any help in resolving this issue as well as any
comments on better coding practices.
Regards,
Jack
#!/usr/bin/perl
#
# cur2sql.pl
#
use strict;
use vars qw($proc_begin $proc_end);
use vars qw($quote_date $cur_sym $cur_desc
Hi guys,
Are there any free resources for learning perl out there...?some tutorials
..pdfs, docs etc..
TIA
Jack
93 matches
Mail list logo
