> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, November 25, 2008 5:04 PM
> To: Perl Beginners
> Cc: Wagner, David --- Senior Programmer Analyst --- WGO
> Subject: Re: Warning that I am receiving. but not making any sense
>
>
> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, November 25, 2008 11:46 AM
> To: Perl Beginners
> Cc: Wagner, David --- Senior Programmer Analyst --- WGO
> Subject: Re: Warning that I am receiving. but not making any sense
>
>
I get the following printed out on my terminal:
pl517c.pl: Gen Rpt/Email St: 08:38:48
Attempt to free unreferenced scalar: SV 0x2063c74, Perl interpreter: 0x22424c at
C:\CurrWrka\00COMM~3\pl517c.pl line 1259.
Attempt to free unreferenced scalar: SV 0x206984c, Perl interpreter: 0x22424c at
I have a couple of processes that run one on a production box and
another on a test box. The production box script checks that a particular file
is never more than 40 minutes old while on the test box, this checks that the
actual polling processes ( in this case three pollers ) also are
> -Original Message-
> From: Telemachus [mailto:[EMAIL PROTECTED]
> Sent: Saturday, November 08, 2008 6:13 AM
> To: beginners@perl.org
> Subject: Re: Cron environment for execution of Perl script
>
> On Thu Nov 06 2008 @ 3:42, Wagner, David --- Senior
> Programm
> -Original Message-
> From: Chas. Owens [mailto:[EMAIL PROTECTED]
> Sent: Saturday, November 08, 2008 10:14 AM
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: Perl Beginners
> Subject: Re: Cron environment for execution of Perl script
>
> On T
I need an environment variable from my .profile on Solaris and having
troubles getting at it. I have a Perl script which executes fine outside of
cron and now am trying to do via cron. I wanted to stay away from a shell
script and was wondering what is the easiest way to get my .profile
I am in the middle of moving from Solaris to Linux environment. On the
current Solaris box, I use Net::FTP for all the work that needs to be done. On
Linux, the ftp is not available, due to security concerns. The Linux
environment had Perl at 5.8.0 and so I got the okay to bring down AS
> -Original Message-
> From: Noah [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 10, 2008 16:28
> To: Perl Beginners
> Subject: matching lines in array - other ways to code
>
> Hi there,
>
> could somebody please suggest some other ways to simplify the reading
> and perhaps make
> -Original Message-
> From: Noah [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 10, 2008 13:23
> To: John W. Krahn
> Cc: Perl Beginners
> Subject: Re: store first key of a hash to scalar
>
> okay that basically answers my question. I will have to
> figure out to
> define a ke
> -Original Message-
> From: Noah [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 10, 2008 13:10
> To: Perl Beginners
> Subject: store first key of a hash to scalar
>
> Hi there,
>
> What is the easiest way to store the first key of a hash to a scalar
> variable?
>
Perl
> -Original Message-
> From: frazzmata [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 08, 2008 10:13
> To: beginners@perl.org
> Subject: comparing text files, in a way
>
> I am writing a program where I want to be able to locate information
> regarding a person in one file, if they a
From: Dan Baker [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 26, 2008 17:00
To: beginners@perl.org
Subject: matching ' in regx
I have a thing driving me NUTS trying to detect a ' in a variable
with regex, and either strip it out or at least detect and error out.
for instance, this just d
Running the following script:
my $MyJES = MVS::JESFTP->open($MyHost, $MyLogonId, $MyPw) or die;
printf "open to MVS completed w/o error\n";
if ( ! defined $MyJES->submit($MyJob) ) {; #$job is the absolute name of
a valid jcl file
printf "Problem with submission of job\n<$MyJob>\n";
> -Original Message-
> From: Wagner, David --- Senior Programmer Analyst --- WGO
> [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, June 04, 2008 11:08
> To: Gunwant Singh; beginners@perl.org
> Subject: RE: Reg. Directory listing program
>
> > -Original Mes
> -Original Message-
> From: Gunwant Singh [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, June 04, 2008 10:02
> To: beginners@perl.org
> Subject: Reg. Directory listing program
>
> Hi,
>
> I am new to this mailing list and I am very new to PERL. So,
> please bear
> with me for my question
> -Original Message-
> From: Bobby [mailto:[EMAIL PROTECTED]
> Sent: Thursday, May 22, 2008 12:33
> To: Rob Dixon; beginners@perl.org
> Cc: Bobby
> Subject: Re: hash
>
> Rob,
>
> Yes the pids are unique.
>
> I've tried the comparison below but didn't worked, so what do
> you think is
> -Original Message-
> From: jshock [mailto:[EMAIL PROTECTED]
> Sent: Monday, May 19, 2008 07:20
> To: beginners@perl.org
> Subject: How do I find the key of a specific hash element?
>
> For example:
>
> my %weekdays = (
> 0 => "SUN",
> 1 => "MON",
> 2 => "TUE",
>
> -Original Message-
> From: Daniel McClory [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, April 22, 2008 16:06
> To: beginners@perl.org
> Subject: problem using backslash on brackets in regular expressions
>
> Hi,
>
> I have files which contain sentences, where some lines have extra
> inf
> -Original Message-
> From: Manoj [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 16, 2008 12:00
> To: 'Perl Beginners'
> Subject: CSV duplicate
>
> Hello List,
>
>
>
> Scenario:
>
> CSV file
>
> Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
>
> Host=Nirus,TCPIP,inxcp011,co
> -Original Message-
> From: Chas. Owens [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 09, 2008 13:05
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: beginners@perl.org
> Subject: Re: Example of FTP w/o Input file? Is it possible to
> do or no
> -Original Message-
> From: Chas. Owens [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 09, 2008 12:33
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: beginners@perl.org
> Subject: Re: Example of FTP w/o Input file? Is it possible to
> do or no
I have a hash which contains for each entry the email which I
need to ftp to a particular location with a specified name. I could
write out the file and then do the ftp. But since I have the necessary
data in an audittrail report, I was wondering if I can ftp from a
variable using ftp comma
> -Original Message-
> From: Chas. Owens [mailto:[EMAIL PROTECTED]
> Sent: Monday, March 24, 2008 11:42
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: Perl Beginners
> Subject: Re: Looking for example of how to keep an FTP
> processing running if t
I have a polling process that runs 24x7 ( internal site ) and for the
most part has no problems except that they shutdown the the internal
site every three or four weeks and my process then dies.
I have a simple setup:
$MyFtp = Net::FTP->new($GlblInfo{ipaddr}, Debug => 1);
$MyFtp
> -Original Message-
> From: Kashif Salman [mailto:[EMAIL PROTECTED]
> Sent: Monday, February 11, 2008 15:24
> To: David Moreno
> Cc: John W. Krahn; Perl Beginners
> Subject: Re: lstat and its uses
>
> I am not sure how to bring it up using the perldoc, I read it when I
> was going throug
> -Original Message-
> From: Chas. Owens [mailto:[EMAIL PROTECTED]
> Sent: Monday, February 11, 2008 13:21
> To: Michael Barnes
> Cc: beginners@perl.org
> Subject: Re: lstat and its uses
>
> On Feb 11, 2008 4:17 PM, Michael Barnes <[EMAIL PROTECTED]> wrote:
> > I thought about using lstat
> -Original Message-
> From: Andy Dixon [mailto:[EMAIL PROTECTED]
> Sent: Thursday, December 20, 2007 10:37
> To: Perl beginners
> Subject: Module help
>
> Hello,
>
> I have written a small module with a function that returns some text.
>
> However, when I run it, from a test script, I
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
> Behalf Of Tom Phoenix
> Sent: Tuesday, December 11, 2007 15:07
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: beginners@perl.org
> Subject: Re: timeout in ftp
>
>
I have the following code:
$MyFTP->put($MyFtpFromFile , $MyFtpToFile );
if ( ! $MyFTP->ok() ) {
.
}
On my audit log:
Net::FTP=GLOB(0x19c30c0)<<< 125-Waiting for recall of data set
FTPTRGP.AMPD0407
Net::FTP=GLOB(0x19c30c0): Timeout at /d/src/pl545.
> -Original Message-
> From: C.R. [mailto:[EMAIL PROTECTED]
> Sent: Thursday, November 08, 2007 12:34
> To: beginners@perl.org
> Subject: Writing DOS CRLF via Unix Perl
>
> I run a script on unix Perl to write a text file. By default,
> when Perl
> writes "\n" it writes a line ending se
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449 FAX
http://fedex.com/us
> -Original Message-
> From: Mahurshi Akilla [mailto:[EMAIL PRO
> -Original Message-
> From: Zachary Shay [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 24, 2007 11:04
> To: beginners@perl.org
> Subject: How to test for "0"
>
> Is there a way to test for values where zero is valid?
>
> For instance:
>
> %a_Hash;
> $a_hash{"user_id"} = 0;
> $a_h
> -Original Message-
> From: Somu [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 24, 2007 09:42
> To: Beginners@perl.org
> Subject: AFAIK
>
> What does it mean? AFAIK? I have seeing it a lot.. Earlier i've been
> seeing the HTH, and a guess gave the answer.. But this one, AFAIK...
>
> -Original Message-
> From: Somu [mailto:[EMAIL PROTECTED]
> Sent: Friday, September 21, 2007 08:27
> To: Beginners@perl.org
> Subject: System
>
> About that PID problem, i found a program in Windows named tasklist,
> it prints all the processes running on the system with its id. I used
> -Original Message-
> From: Sundeep [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 19, 2007 05:50
> To: beginners@perl.org
> Subject: Abnormal behavior of print / syswrite
>
> A clue less problem for me...
>
> my $message = "Completed CODE standards checks.\n".
>
> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 17, 2007 18:42
> To: beginners@perl.org
> Subject: Re: Using Perl Win 32 AS 5.8.x - Anyway to find the
> File Create Date/Time
>
> Wagner, David --- Senior Programm
> -Original Message-
> From: VUNETdotUS [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 17, 2007 12:36
> To: beginners@perl.org
> Subject: Format Output
>
> I print some output in PERL. It is data in 3 columns. I use \t to add
> a tab space to make a column.
> However, \t may not prod
> -Original Message-
> From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 17, 2007 15:42
> To: beginners@perl.org
> Subject: Re: Using Perl Win 32 AS 5.8.x - Anyway to find the
> File Create Date/Time
>
> From: "Wagner, David --- Seni
> -Original Message-
> From: Chas Owens [mailto:[EMAIL PROTECTED]
> Sent: Monday, September 17, 2007 10:14
> To: W. Sp.
> Cc: beginners@perl.org
> Subject: Re: how to make use of $content in LWP
>
> On 9/16/07, W. Sp. <[EMAIL PROTECTED]> wrote:
> snip
> > regex worked fine in my case. But
stat will give me the mod time, but does not have the create
time. From Windows Explorer, I notice that I can get the Create Date.
Anyway to accomplish this in Perl? I did a search against CPAN
and also AS, but what I put in ( Perl create time file ) did not seem to
give me what I
> -Original Message-
> From: news [mailto:[EMAIL PROTECTED] On Behalf Of Andreas Moroder
> Sent: Sunday, August 26, 2007 23:37
> To: beginners@perl.org
> Subject: store more values in a hash array
>
> Hello,
>
> I have to store more then one value in a hash array. I tried
> to store a
>
> -Original Message-
> From: lists user [mailto:[EMAIL PROTECTED]
> Sent: Sunday, August 26, 2007 20:01
> To: beginners perl
> Subject: a division warning
>
> I run a perl command below,
>
> perl -Mstrict -Mwarnings -e 'eval {my $x=3;my
> $y=$x-3;$x/$y};print "hello"'
> Useless use of d
Rob Dixon pointed me to a module(Win32::Security::NamedObject)
which works, but when I tried a larger volume, it failed with the
following:
GetNamedSecurityInfo: The process cannot access the file because it is
being used by another process. at
C:/Perl/site/lib/Win32/Security/NamedObject.p
> -Original Message-
> From: Rob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Thursday, August 23, 2007 03:38
> To: beginners@perl.org
> Cc: Wagner, David --- Senior Programmer Analyst --- WGO
> Subject: Re: File Creator under WIN32 environment
>
> David Wagner wrote:
Need to get the individual who created the file I am looking at.
I am using File::Find to get all files that are 4 days or younger. I can
get all info: Path, file name, file size, date modified easily except
owner. I have looked at the Perl doc ( using AS 5.8.8 build 820 ). I see
that I can
I am attempting to sort data which has a combination of both numeric
and alpah numeric data. Now it would not be so bad, but the numeric data
can be either 9 or 10 characters in length and no leading zero is
supplied in the numbers.
I have supplied some code I am playing with, but running into a
> -Original Message-
> From: oryann9 [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, August 08, 2007 13:44
> To: Perl List
> Subject: slices
>
> Trying to understand from perldoc perldata the diff
> between these 3 CLIs and why the 2nd CLI has no
> elements?
>
> $ perl -le 'use Data::Dumper
> -Original Message-
> From: timbo [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, August 08, 2007 07:03
> To: beginners@perl.org
> Subject: calculating time difference with localtime
>
> Once I calculate the difference between 2 epoch times, is there a way
> I can convert the difference int
Use Spreadsheet::ParseExcel. I had a similar situation and by
just using the examples within was able to write out three csv for some
processing I am doing. If a single worksheet, then you coupld possbily
get away with using ParseExcel::Simple to accomplish the work.
If you have
> -Original Message-
> From: Bret Goodfellow [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, August 01, 2007 14:25
> To: beginners@perl.org
> Subject: How do I truncate or remove a trailing character
>
> Okay, I know this has to be simple, but because I am trying
> to truncate
> or remove a
> -Original Message-
> From: jeanwelly [mailto:[EMAIL PROTECTED]
> Sent: Thursday, July 19, 2007 05:26
> To: beginners@perl.org
> Subject: Distill some string from whole string
>
> $my_string = "a\nbbl.dghd\n/usr/command\n";
>
> I want to distill /usr/command and assign to a variable
> -Original Message-
> From: country [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, July 18, 2007 06:00
> To: beginners@perl.org
> Cc: [EMAIL PROTECTED]
> Subject: Combining Records From Multiple Files based on
> Common Key Values
>
> I have multiple CSV files (3 for this example) with
> i
> -Original Message-
> From: a_arya2000 [mailto:[EMAIL PROTECTED]
> Sent: Monday, July 16, 2007 14:06
> To: beginners@perl.org
> Cc: a_arya2000
> Subject: Re: Spreadsheet::WriteExcel problem with large file
>
> By the way, my file size around 22 MB so, is it
> possible that Spreadsheet::W
> -Original Message-
> From: Patrik Hasibuan [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 28, 2007 12:55
> To: Milis CPAN-Perl-Beginners
> Subject: Need idea for doing automatic iteration, please.
>
> Dear my friends...
>
> I want my code does an action if it find a directory or file
> -Original Message-
> From: Chas Owens [mailto:[EMAIL PROTECTED]
> Sent: Friday, June 15, 2007 16:50
> To: Wagner, David --- Senior Programmer Analyst --- WGO
> Cc: beginners@perl.org
> Subject: Re: FTP to IBM ZOS/390
>
> On 6/15/07, Wagner, David --- Senior Pr
Has anyone done any FTP'ing to IBM ZOS/390 machine. As you can
see in the output there was a timeout due to waiting for a file to
recalled from tape to disk.
Output:
Net::FTP=GLOB(0x15f35c)>>> STOR FREQ0407
Net::FTP=GLOB(0x15f35c)<<< 125-Waiting for recall of data set
FTPTRGP.FREQ0407
Net
> -Original Message-
> From: Vladimir Lemberg [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 02, 2007 14:01
> To: beginners@perl.org
> Subject: Win32 script cannot read command line argument.
>
> Hi All,
>
> My script is unable to read argument when I'm executing it
> as: script.pl .
Believe it is 'Hope this helps!'.
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449 FAX
http://fedex.com/us
> -Original Message-
>
> -Original Message-
> From: Karyn Williams [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, April 17, 2007 15:14
> To: Perl Beginners
> Subject: substitute and assign in one line
>
> This is probably very simple, but I'm not seeing it. I want to do the
> following:
>
>
> my $lfirst = $first;
> -Original Message-
> From: Karyn Williams [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 28, 2007 17:54
> To: beginners@perl.org
> Subject: RE: Exiting loops
>
> At 04:10 PM 3/28/07 -0700, Wagner, David --- Senior
> Programmer Analyst ---
> WGO wrote:
&g
take the o off the /o This is in essence saying you only have to
compile this once for the processing going on. Take that off and see
what happens. I believe you would use /o if you have regex has no
variables which are changing with each iteration.
If you have any problems or qu
> -Original Message-
> From: Matt Herzog [mailto:[EMAIL PROTECTED]
> Sent: Friday, March 23, 2007 15:00
> To: Begin Perl
> Subject: File::Find again
>
> Hello All.
>
> I can see why people hate this module but I can't seem to let go.
> I point this script at a deep dir structure that has
> -Original Message-
> From: Vladimir Lemberg [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 20, 2007 15:21
> To: beginners@perl.org
> Subject: capture stdin and stderr
>
> Hi All,
>
>
>
> My script is calling a Win32 program with two arguments:
>
> system ( "$ARGV[0]\\program.exe"
> -Original Message-
> From: hOURS [mailto:[EMAIL PROTECTED]
> Sent: Monday, March 19, 2007 13:17
> To: Perl Beginners
> Subject: Re: STDOUT
>
>
>
> Jenda Krynicky <[EMAIL PROTECTED]> wrote: From: hOURS
> > Hi,
> > I wrote to the list with this issue before and got some
> sugge
Not tested:
while ( 1 ) {
printf "Please enter length of variable(ex:exit out): ";
chomp(my $MyInp = );
last if ( $MyInp =~ /^ex$/i );
if ( $MyInp !~ /\d+/ ) {
print "Expecting only digits, but got <$MyInp>
> -Original Message-
> From: Beginner [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 14, 2007 10:56
> To: beginners@perl.org
> Subject: polling a directory
>
> Hi,
>
> I am trying to find a means of monitoring a directory for activity. I
> would like a perl process to aware if a fil
> -Original Message-
> From: Beginner [mailto:[EMAIL PROTECTED]
> Sent: Monday, March 12, 2007 11:16
> To: beginners@perl.org
> Subject: Re: Removing blank lines
>
> On 12 Mar 2007 at 11:09, Grant wrote:
>
> > Hello,
> >
> > I'm having a lot of trouble figuring out how to remove blank l
> From: Michael Goopta [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 07, 2007 12:13
> To: beginners@perl.org
> Subject: Where can I download the Perl Mail::Sendmail library module
>
> Hi Chas,
>
> Thanks a lot for your help. It did get me started. It had time
> module.
> Now, when I started
> -Original Message-
> From: Tony Heal [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 06, 2007 10:43
> To: beginners@perl.org
> Subject: what does a lone percent sign mean?
>
> I am trying to determine how this does what it does.
>
>
>
> sub IsLeapYear
>
> {
>
>my $year = shif
> From: Kevin Viel [mailto:[EMAIL PROTECTED]
> Sent: Friday, March 02, 2007 09:10
> To: beginners@perl.org
> Subject: Compound variable names
>
> Greetings,
>
>I have been struggling with this one for a while. How can
> I create a
> variable name composed of two or more variables? I susp
> -Original Message-
> From: Brian Volk [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, February 28, 2007 12:24
> To: Brian Volk; beginners@perl.org
> Subject: RE: print if variable matches key
>
>
>
> > -Original Message-
> > From: Brian Volk [mailto:[EMAIL PROTECTED]
> > Sent: W
> -Original Message-
> From: Matt Herzog [mailto:[EMAIL PROTECTED]
> Sent: Monday, February 26, 2007 12:28
> To: Begin Perl
> Subject: $.:
>
> What does $.: mean?
> --
> Ubuntu eh? I'm not really into Pokemon.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional command
I have two hashes and each is made up of two keys. One has only
a numeric value and the the second one has the detail. If I find out
that I have right situation, I change the numeric value in the first
hash. I have done data dumper where I create the hash and as I update
the hash value and
> -Original Message-
> From: Vladimir Lemberg [mailto:[EMAIL PROTECTED]
> Sent: Monday, February 12, 2007 12:33
> To: beginners@perl.org
> Subject: pattern match
>
> Hi,
>
> I have a script, which suppose to find all *.xml files under
> the specified directory then process them.
> I'm
Brad Cahoon wrote:
> Hi Perl Masters
>
> I have a problem with a script which is suposed to open a huge text
> file and take 70 lines, create a file, then take the next 70 lines
> create a file and so on until it has parsed the whole file. My code
> just doesn't work and my brain cannot figure out
I currently have data for group1 which has x entries associated
with it. As I currently put out the email, the data is going down the
page. Well with the data being displayed, I thought why not have all on
same line like following:
EE Eenural 148ED Easuern 185NO Noruhe
FAX
http://fedex.com/us
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2007 12:13
To: Tom Phoenix
Cc: Beginner Perl
Subject: RE: Trying to read two files using a sub to get the data, but
2nd read
--- Senior Programmer Analyst --- WGO
Cc: Beginner Perl
Subject: Re: Trying to read two files using a sub to get the data, but
2nd read on the 2nd file goes to EOF
On 1/23/07, Wagner, David --- Senior Programmer Analyst --- WGO
<[EMAIL PROTECTED]> wrote:
> I am just trying to read t
-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of
Tom Phoenix
Sent: Tuesday, January 23, 2007 11:51
To: Wagner, David --- Senior Programmer Analyst --- WGO
Cc: Beginner Perl
Subject: Re: Trying to read two files using a sub to get the data, but
2nd read on the 2nd file goes to EOF
On 1/23
Here is a snippet of the code:
my $MyFileHand;
my $MyFileHand1;
open($MyFileHand,"<$MyFileIn") || diet (3, $MyFileIn, $!);
open($MyFileHand1,"<$MyFileIn1") || diet (3, $MyFileIn1, $!);
proc_getrcd( $MyFileHand , $MyEOFProd, $
-Original Message-
From: Dave Gray [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 04, 2007 17:01
To: beginners@perl.org
Cc: Wagner, David --- Senior Programmer Analyst --- WGO
Subject: Re: How to pull Text from a PDF using Perl?
On 1/4/07, Wagner, David --- Senior Programmer Analyst
I have tried both PDF::API2 and CAM::PDF and I must be misunderstanding how to
use these modules. Here is the way I attempted using CAM::PDF
Source portion:
…
use CAM::PDF;
$MyPDF = CAM::PDF->new($MyFileIn); # a PDF file which has text
$MyPDFPgCnt = $MyPDF->numPages
: Friday, November 03, 2006 14:19
To: beginners@perl.org
Subject: Re: line position
Wagner, David --- Senior Programmer Analyst --- WGO am Freitag, 3.
November
2006 22:16:
> If it is only one line and it is record separator is carriage
> return as defined by your system, then a simple loo
Ex Freight
1.408.323.4225x2224 TEL
1.408.323.4449 FAX
http://fedex.com/us
-Original Message-
From: Tim Wolak [mailto:[EMAIL PROTECTED]
Sent: Friday, November 03, 2006 11:05
To: Wagner, David --- Senior Programmer Analyst --- WGO;
beginners@perl.org
Subject: RE: line position
The whole thing be
Programmer Analyst
FedEx Freight
1.408.323.4225x2224 TEL
1.408.323.4449 FAX
http://fedex.com/us
-Original Message-
From: Tim Wolak [mailto:[EMAIL PROTECTED]
Sent: Friday, November 03, 2006 10:30
To: Wagner, David --- Senior Programmer Analyst --- WGO;
beginners@perl.org
Subject: RE
If you provide some data and/or what you have attempted, it will go
much farther in getting some assistance. Otherwise the list is guessing
at what you are really trying to do.
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Prog
I found out this week that within our organization, FTP will be
no longer allowed and that in its place, scp ( secure copy over SSH )
will take it's place. I have a couple of polling modules which use FTP
to look for trigger files in specific locations on remote machines. I
then ftp the dat
I copied and ran without the $|=1 and it displays the text What
is your name? and I enter na d it completes.
I tried both from the cmd.exe and a kornshell and both wroked
the same way.
Might it have something to do with Eclipse?
If you have any problems or que
use !~ vs =~ which is if not so
if ( $line !~ /\(xxx\)/ ) {
# does not contain (xxx)
}else {
# does contain
}
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Program
Believe you want to do as a reference otherwise it justs returns the
data as a flat file or stream of data.
Here is a snippet. Would get away from a and b since the $a and $b are
used by sort. Know that it is an array, but would get away from that.
Also use strict and warnings.
#!perl
use strict
The same you your doing $year, $mon, $mday use %02d which tells
sprintf to add leading zeros as need to keep the size correct. So
\_$hour\:$min\:$sec becomes \_%02d\:%02d\:%02d and you add the $hour,
$min and $sec after the $mday.
If you have any problems or questions, please let
Can't answer the first, but on the second:
I send text messages to my ATT cingular phone using sendmail to
send the text. This gives me heads up when I have problems. Now I am
also starting sending to another phone number using cingular, but it is
a blackberry. This user receives
Ryan Moszynski wrote:
> Is there a way to make my commented 'foreach" line act the same as the
> line above it?
>
> Can I pass a list as a variable as I am trying to do, or doesn't perl
> support that?
>
> ###
> #!/usr/bin/perl -w
> $|=1;
> #use strict;
>
> system "clear";
> my @array =
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
> Nishi Bhonsle wrote:
>> I tried it but didnt work.
>> my @new;
>>
>> find(sub {push @new, $_}, $path);
> find(sub {push(@new,$_) if ( !/^\.{1,2}/ ) }, $path);
>
> If not 1
Nishi Bhonsle wrote:
> I tried it but didnt work.
> my @new;
>
> find(sub {push @new, $_}, $path);
find(sub {push(@new,$_) if ( !/^\.{1,2}/ ) }, $path);
If not 1 or 2 periods push on to @new;
Wags ;)
>
> open FILE,">>$logfile";
>
> print FILE "$_\n" foreach @new;
> close FI
Sayed, Irfan (Irfan) wrote:
> Hi,
>
> I have one array called as @array1 which has some data
>
> I have another @array2 which also has some data.
>
> now for each element / value of both these arrays i need to a run a
> specific command at a time , not one by one. means that for every
> element
Sayed, Irfan (Irfan) wrote:
> Hi,
>
> I have written following line. but i am getting error
>
> my @test = ("/test" , "/playground");
> print @test;
>
> i am getting output as follows
>
> /test/playground
>
> i need the output in following fasion
>
> /test
> /playground
>
> can you please t
Ryan Moszynski wrote:
> i have this string extracted from a text file i'm writing a program
> to process:
>
> test_freq = 1.0001;
>
> and i have to extract the "1.0001"
>
> i can't count on the whitspace being where it now is.
>
> I would like to change this line of perl
>
> $getTestFRQ
Smith, Derek wrote:
> My hash creations are not working as I expected: %hash = ( @mir,
> @mir2 );
>
> Why?
>
To populate a hash requires two fields: Key and data. What you are
assuming is that it will take one from @mir and one from @mir2 which is a wrong
assumption. Yes the second wor
1 - 100 of 500 matches
Mail list logo
