Ohh I found
Just to change the 8 to 1, and Im going to use one of each one, not 9 by 9.
for($i=0; $i<($#archivo-2); $i++) {
push @lista_final, splice(@correos_p, 0, 1);
push @lista_final, splice(@correos_h, 0, 1);
push @lista_final, splice(@correos_y, 0, 1);
push @lista_fi
Sachin Hegde wrote:
Hi,
There is this warning which I can't remove :
Illegal hexadecimal digit '
' ignored at test.pl line 131, line 23.
It is the newline at the end
test.pl is the name of the program while FH is a file handle(read
only). Part of my code is:
<129> $ln = ;
<130> @f
I'm modifying an existing script that has been moved to a new domain and a
new ISP. It opens a DBM file like this
dbmopen %fileinfo, "../data/fileinfo", 0644
or die "cannot open fileinfo: $!\n";
This fails intermittently with
[Thu Jul 31 00:46:16 2003] [error] [client 53.259.56.55] cannot op
Thanks Steve!
> for (whatever) {
> push @lista_final, splice(@correos_p, 0, 8);
> push @lista_final, splice(@correos_h, 0, 8);
> push @lista_final, splice(@correos_y, 0, 8);
> # etc...
> }
Thanks! Now my 'for' works very fast. Howerver, I could like to know..
for($
Hi,
There is this warning which I can't remove :
Illegal hexadecimal digit '
' ignored at test.pl line 131, line 23.
test.pl is the name of the program while FH is a file handle(read only).
Part of my code is:
<129> $ln = ;
<130> @flds = split(/ /,$ln);
<131> if($flds[5] =~ /[a-zA-Z]
On Thu, Jul 31, 2003 at 12:17:10AM +, Pablo Fischer wrote:
> Hi! I solved it:
>
> for($i=0; $i<($#archivo-2); $i++) {
> #print "FSF\n";
> for($j=0; $j<9; $j++) {
> push(@lista_final, $correos_p[$j]);
> push(@lista_final, $correos_h[$j]);
> push(@lista_final, $correos_
Hi! I solved it:
for($i=0; $i<($#archivo-2); $i++) {
#print "FSF\n";
for($j=0; $j<9; $j++) {
push(@lista_final, $correos_p[$j]);
push(@lista_final, $correos_h[$j]);
push(@lista_final, $correos_y[$j]);
push(@lista_final, $correos_l[$j]);
push(@lista_f
Hi again;
Sorry I forgot to said that when I finish to take the first 9 elements of
arr7, I need to restart in the ARr1. thats Why I need to remove those
elements.
Thanks!
El día Wednesday 30 July 2003 11:09 a Pablo Fischer mandó el siguiente correo:
> Hi!
>
> I need to make an array of 3000 e
Hi!
I need to make an array of 3000 elements, I have 7 arrays (sub-arrays?). I
need to do this:
Take first 9 of Arr1, push them to the BIG ARRAY and remove this 9 from the
'subarray'
Take first 9 of Arr2, push them to the BIG ARRAY and remove this 9 from the
'subarray'
Take First 9 of Arr3, pu
Hi,
Pablo, you should write this at line of IF command:
if($count>0 && $count<$#archivo) {
I hope you get the right thing you want.
Bye,
Josimar
- Original Message -
From: "Pablo Fischer" <[EMAIL PROTECTED]>
To: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Wednesday, July 30, 2003
Hodge, Jeff F (ECIII) wrote:
I'm having trouble installing certain modules...they bomb out during the
make processsee attachments.
perl -MCPAN -e 'install Apache::Cookie'
perl -MCPAN -e 'install DBD::mysql'
This should work other modules where installed and work fine using the same
methodolo
Solved;
Another case of buffering, the right code:
foreach $i (@archivo) {
#Dont count the first and last line
if($count>$size || $count<$size) {
($correo, $clave, $nombre, $registro, $id, $sexo, $password) = split(/\|/,
$i);
($user, $host) = split(/\@/, $correo);
Hi!
I have an array (@archivo), and each line has pipes (|), so Im using split,
but Im using 'sleep 1' to make it 'slower' so I can see line by line.
foreach $i (@archivo) {
#Dont count the first and last line
if($count>$size || $count<$size) {
chomp($i);
($correo, $clav
- Original Message -
From: "Rob Dixon" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 31, 2003 5:44 AM
Subject: Re: I'm a Nebie to PERL
[snap]
> > > It ran and just listed the contents of the helloworld.pl file. PERL
ran but
> > > the .pl program didn't.
> > >
> > > A
Thanks a lot .
david wrote:
[EMAIL PROTECTED] wrote:
Hello All:
I am trying to format a check. Everything is fine except I cannot print
the line box surrounding the check items:
+---+
| |
| |
+---
I have downloaded the perl/tk module Tk804.02 from CPAN.ORG. I've unzipped and
untarred it and placed it and it sub-directories uner "/". But my perl script can not
find it. I get the response "Cann't locate Tk.pm in @INC". What to do?
Title: installing perl mod's
I'm having trouble installing certain modules...they bomb out during the make processsee attachments.
perl -MCPAN -e 'install Apache::Cookie'
perl -MCPAN -e 'install DBD::mysql'
This should work other modules where installed and work fine using the sam
Hello all I have a script that reads in a control file
that list a dir. to
change to inside the control file I have
Dir: /cf/courseware
The part of the Perl script that I run to pull in that
info is
# Open the control file or log
my $control_file= "/home/qgriff/FTP.CTL";
unless ( open CTL, $con
Li Ngok Lam wrote:
> KENNETH JANUSZ wrote:
> >
> > Platform: DELL 8200 with XP Prof. SP1 and Oracle 9.2 with the test DB.
> >
> > I'm new to PERL and need some guidance on getting to run on my PC. The PERL
> > files were installed when I implemented Oracle 9.2. I didn't add any other
> > code.
>
The technique I described is useful only if you don't care what part of the
image is being thrown away. In my case it doesn't matter too much. I mean,
it doesn't really affect to me.
But. Let's just say you have horizontal and vertical images taken with you
digital camera (in my case), and you hae
[EMAIL PROTECTED] wrote:
> Hello All:
>
> I am trying to format a check. Everything is fine except I cannot print
> the line box surrounding the check items:
>
> +---+
> | |
> | |
> +---+
>
> How
Anyone using perl to access CVS? The CVS repository I need to access does
not allow anonymous or just plain read-only access, So I need to hard
code a username and password. Yuk..
Anyone have any idea's to get around this with perl?
Thanks
Denis
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
Joon Hahn wrote:
> The incoming mailbox or reply to mailbox is an exchange mailbox.
> Can I even use perl if it's coming through an exchange box?
Not unless MS Exchange has OLE (ActiveX) capabilities, which
it probably has but I can't be sure. There are OLE modules in
CPAN, but I don't know if the
> Dan Muey wrote:
> > > Dan Muey wrote:
> > > > I'm looking at Archive::Zip to extract a single text file
> > > from a zip
> > > > file that is ftped from a winders box to a unix box.
> > > >
> > > > The zip file conatins only one file, a .txt file, that is
> > > compressed
> > > > pretty well. (ab
> Dan Muey wrote:
> >
> > Or would this be right for grabbing a certain file fomr a
> multi file
> > zip archive: (long variable names are just for descriptive purposes
> > ;p)
> >
> > for($zip->members) {
> > if($_->fileName =~ $filenameinzipiwanttograb) {
> > $_->extractToFileNamed($filenameiw
Dan Muey wrote:
>
> Or would this be right for grabbing a certain file fomr a multi file zip archive:
> (long variable names are just for descriptive purposes ;p)
>
> for($zip->members) {
> if($_->fileName =~ $filenameinzipiwanttograb) {
> $_->extractToFileNamed($filenameiwanttocreathere) or die 'e
> > Dan Muey wrote:
> > > I'm looking at Archive::Zip to extract a single text file
> > from a zip
> > > file that is ftped from a winders box to a unix box.
> > >
> > > The zip file conatins only one file, a .txt file, that is
> > compressed
> > > pretty well. (about 170 MB regular 18MB zipped up)
Dan Muey wrote:
> > Dan Muey wrote:
> > > I'm looking at Archive::Zip to extract a single text file
> > from a zip
> > > file that is ftped from a winders box to a unix box.
> > >
> > > The zip file conatins only one file, a .txt file, that is
> > compressed
> > > pretty well. (about 170 MB regular
El día Wednesday 30 July 2003 6:45 a Dan Muey mandó el siguiente correo:
> I guess I'm a bit lost as to where $this->{WHATEVERS} gets created and
> where and how you call descomprimir_zip();
All its a class that I made.
> All I need to do is extract one file from one zip file
> into one text file
> > Any pointers/ideas/experience about how to do that?
>
> Hi Dan.
>
> The program below is the very basic stuff to do what you
> want. It does no error checking except to make sure that the
> zip file opened OK, and just extracts the first file in the
> archive with to a file with a name pre
> Dan Muey wrote:
> > I'm looking at Archive::Zip to extract a single text file
> from a zip
> > file that is ftped from a winders box to a unix box.
> >
> > The zip file conatins only one file, a .txt file, that is
> compressed
> > pretty well. (about 170 MB regular 18MB zipped up)
> >
> > Dat
> Hi!
Howdy!
>
> Im gonan try to help you, cause Im doing the same. Getting
> certain files from
> a FTP Server, saving them in a directory already defined,
> unziping them in a
> temp directory, parsing the file (thanks to all the list),
> and saving some
> data to a MySql DataBase.
Coo
Dan Muey wrote:
> I'm looking at Archive::Zip to extract a single text file from a zip file that is
> ftped from a winders box to a unix box.
>
> The zip file conatins only one file, a .txt file, that is compressed pretty well.
> (about 170 MB regular 18MB zipped up)
>
> Data.txt is apx 170MB
> Da
The incoming mailbox or reply to mailbox is an exchange mailbox. Can I even use perl
if it's coming through an exchange box?
Joon
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 11:20 AM
To: [EMAIL PROTECTED]
Subject: Re: stipping away text be
Hi!
Im gonan try to help you, cause Im doing the same. Getting certain files from
a FTP Server, saving them in a directory already defined, unziping them in a
temp directory, parsing the file (thanks to all the list), and saving some
data to a MySql DataBase.
> Data.txt is apx 170MB
> Data.tx
Joon Hahn wrote:
> Hello all,
>
> I was wondering if somebody out there had a perl script that would delete everything
> below
>
> -Original Message-
>
> in an email? I have a workflow engine which grabs the entire body of an email an
> updates a worklog. The problem is it grabs the
> w
Rob Hanson wrote:
> > I am trying to get .15 and end up with 0.15.
>
> I don't believe that ".15" is a valid floating point value, I think there
> always has to be at least one digit to the left of the decimal... so the "f"
> format won't help.
perl -e "print .15"
OUTPUT
0.15
:)
Rob
--
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
> I am trying to get .15 and end up with 0.15. I have tried a number of combinations
> of sprintf and %f.
>
> sprintf "%.2f"
> sprintf "%2.2f"
> sprintf "% .2f"
> sprintf "% 2.f"
>
> and I always get a 0.15.
>
> Do I just remove with a reg
I'm looking at Archive::Zip to extract a single text file from a zip file that is
ftped from a winders box to a unix box.
The zip file conatins only one file, a .txt file, that is compressed pretty well.
(about 170 MB regular 18MB zipped up)
Data.txt is apx 170MB
Data.txt is zipped into 'data.z
Rob Dixon wrote:
> "Kevin Zembower" wrote:
> > Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion
> > and copied all the contents onto my hard drive:
> >
> > [snip]
> >
> > Then, I edited, listed and ran the program:
> > [EMAIL PROTECTED]:~/RapheTask$ cat ./processAVi
Hello, lets see some code.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, July 29, 2003 9:38 PM
> To: [EMAIL PROTECTED]
> Subject: Help with Formatting
>
>
> Hello All:
>
> I am trying to format a check. Everything is fine except I cannot
> pr
You could probably do:
$email =~ /^(.*)-Original Message-/;
Then $1 would have your text, I am not sure if it will keep the line breaks or not,
but you can play with that a little.
Brian Seel
HS Intern
-Original Message-
From: Joon Hahn [mailto:[EMAIL PROTECTED]
Sent: Wednesda
Not really have any new ideas, I still using looping process to get job
done.
But I have a new direction for this but still digging. ( feel
chocking just
really like mining ;-) )
perldoc -f fork
perldoc -f pipe
perldoc -m Thread
perldoc perlipc
HTH
- Original Message -
From:
Hello all,
I was wondering if somebody out there had a perl script that would delete everything
below
-Original Message-
in an email? I have a workflow engine which grabs the entire body of an email an
updates a worklog. The problem is it grabs the whole email instead of just the
> I am trying to get .15 and end up with 0.15.
I don't believe that ".15" is a valid floating point value, I think there
always has to be at least one digit to the left of the decimal... so the "f"
format won't help.
Using a regex might be the easiest way to solve the problem since I don't
know t
Hi,
I want to do something similar, read multiple files and
extract some piece of readed lines for a file or screen,
to generate te output file could be used unix redirection.
Do you have new ideas how to work with multiple files ?
Thanxs
- Original Message -
From: "LI NGOK LAM" <[EMAI
I am trying to get .15 and end up with 0.15. I have tried a number of
combinations of sprintf and %f.
sprintf "%.2f"
sprintf "%2.2f"
sprintf "% .2f"
sprintf "% 2.f"
and I always get a 0.15.
Do I just remove with a regex or am I missing s
First, your Perl is not a complete version of Perl. You just have the
compiler of Perl.
You almostly missed some very important modules such as strict, warnings,
CGI..etc.
And second, your Perl is out of dated. for Win32 OS, Perl is up to 5.8.0
now.
So go to
http://www.activestate.com/Products
> It ran and just listed the contents of the
> helloworld.pl file. PERL ran but the .pl
> program didn't.
Are you sure it didn't run? You said it was under the "default-web-app"
directory, so probably all it does is print a bunch of stuff to the console
(or browser).
Did you look at the code?
> It was Wednesday, July 30, 2003 when Dan Muey took the soap
> box, saying:
> :
> : If I have a number like so:
> : 5.8592675
> :
> : I need to make it a x.xx instead of x.x and I need
> to round it up to the next hundredth like so : 5.86
> :
> : I can't seem to remember the round ty
It was Wednesday, July 30, 2003 when Dan Muey took the soap box, saying:
:
: If I have a number like so:
: 5.8592675
:
: I need to make it a x.xx instead of x.x and I need to round it up to the
next hundredth like so : 5.86
:
: I can't seem to remember the round type functions name and
Hello...
[snip]
-Original Message-
From: Raghupathy [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 11:03 AM
To: [EMAIL PROTECTED]
Subject: fixed length records and MQ
Hi All,
I need to unload data from sybase and output it as
fixed length records into a MQ using perl.
1) Is
If I have a number like so:
5.8592675
I need to make it a x.xx instead of x.x and I need to round it up to the next
hundredth like so : 5.86
I can't seem to remember the round type functions name and am always screwy with
sprintf.
What combo of sprintf() and round() or whatever would
Platform: DELL 8200 with XP Prof. SP1 and Oracle 9.2 with the test DB.
I'm new to PERL and need some guidance on getting to run on my PC. The PERL files
were installed when I implemented Oracle 9.2. I didn't add any other code.
My PERL files are located at:
C:\oracle\ora92\Apache\perl\5.0050
"Kevin Zembower" wrote:
> Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion
> and copied all the contents onto my hard drive:
>
> [snip]
>
> Then, I edited, listed and ran the program:
> [EMAIL PROTECTED]:~/RapheTask$ cat ./processAVimages.pl
> #! /usr/bin/perl -w
>
Sorry - some spelling mistakes there:
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
> Pablo Fischer wrote:
> > Thanks!!!
> >
> > That's what I was looking for!
> >
> > Yep, the file has a single record, It works, thanks!
> >
> > Now looking your code, the difference its
Pablo Fischer wrote:
> Thanks!!!
>
> That's what I was looking for!
>
> Yep, the file has a single record, It works, thanks!
>
> Now looking your code, the difference its the local $/. What does local $/ its
> doing?
The scalar $/ is a perdefined variable which is the 'input record
separator'. It
-Original Message-
From: awarsd [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 8:06 AM
To: [EMAIL PROTECTED]
Subject: Mime::Parser starter
Hi,
i just need someone to guide me please
I'm retrieving from my host email(with attachment) using Net::Pop3
I print the message conten
"Knowledge is of two kinds. We know a
subject ourselves, or we know where we can
find information on it."
Samuel Johnson (1709 - 1784)
There are a lot of info from perldoc.
Type
C:\>perldoc perldoc
To learn how to use perldoc ;)
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[E
The following command line will give you the text:
C:\>perldoc perlop
I have pasted here the relevant section for you :
Conditional Operator
Ternary "?:" is the conditional operator, just as in C. It works much
like an if-then-else. If the argument before the ? is true, the argument
befo
Thanks Peter!,
PS> That's because you missed out the next line, where the value from
PS> (the equivalent of) @$valref{cn} is dereferenced again with
PS> @$attrVal.
PS> I don't know why the dereferencing is done in the example with
PS> @$valref{$attrName}; that's needlessly complicated (single el
Have a look to this :
http://www.perldoc.com/perl5.8.0/pod/perlop.html#Conditional-Operator
HTH,
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 5:06 PM
To: [EMAIL PROTECTED]
Subject: ? thinger
I have been noticing the ? used
I have been noticing the ? used quite a bit, and I don't know what it does. I know in
regular expressions it means "0 or 1" but what about in a time like:
for my $op ( "and", "or ", "xor" ) {
print "0 $op 0 ", eval "0 $op 0" ? "TRUE" : "FALSE";
print "0 $op 1 ", eval "0 $op 1" ? "TRUE" :
Hi All,
I need to unload data from sybase and output it as
fixed length records into a MQ using perl.
1) Is is possible to write to MQ using perl ?
2) If I need to write out the fixed length records, do
I have to format each field using "sprintf" function ?
Are there any other alternatives ?
Thanks for all of your help! I got it with the module, but I am going to play with
some of that code now :). Thanks for all of your help.
Brian Seel
High School Intern
Micron Technology
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECT
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Tim Musson) writes:
>Hey all,
>
> I am using the perl-ldap module (to access MS AD, not that that
> matters to this question though :-).
>
> My problem is I don't understand part of the example code - it all
> works just fine, but using th
> "Ramon" == Ramon Chavez <[EMAIL PROTECTED]> writes:
Ramon> I meant that this program cuts rectangles from the original
Ramon> images, all of them with the same proportions. Like if you were
Ramon> cutting cookies from the paste for baking (lol). It then
Ramon> resizes all the resulting image
Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion and
copied all the contents onto my hard drive:
[EMAIL PROTECTED]:~/RapheTask$ mkdir cd
[EMAIL PROTECTED]:~/RapheTask$ cp -aRv /cdrom cd/
`/cdrom' -> `cd/cdrom'
`/cdrom/JPEG Covers' -> `cd/cdrom/JPEG Covers'
`/cdro
use Data::Dumper;
print Dumper($ref);
-Original Message-
From: Tim Musson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 3:40 PM
To: [EMAIL PROTECTED]
Subject: Re: Help please - still not understanding references I think...
Hey bseel,
My MUA believes you used
to wri
Hey bseel,
My MUA believes you used
to write the following on Wednesday, July 30, 2003 at 9:38:08 AM.
>>> I was thinking (and the documents say) these are references, but I
>>> have had a hard time getting my head around references...
>>>
>>> I have tried adding this
>>> pri
[Snipped]
>> I was thinking (and the documents say) these are references, but I
>> have had a hard time getting my head around references...
>>
>> I have tried adding this
>> print @$valref{cn};
>> but all it prints is
>> ARRAY(0x25d9ec4)
>> and I want it to print the value o
Hey all,
I am using the perl-ldap module (to access MS AD, not that that
matters to this question though :-).
My problem is I don't understand part of the example code - it all
works just fine, but using the "as_struct" method, I need to just
display the "cn" attribute (I need to w
print"Please enter first name:\n";
chomp($first = )
print"Enter a last name:\n";
chomp($last = );
format = STDOUT
+---
|@
|$first
|@
|$last
+---
.
> Hello, lets see some code.
>
> > -Orig
Hi,
i just need someone to guide me please
I'm retrieving from my host email(with attachment) using Net::Pop3
I print the message content- where we can see
Charsert ="iso-8869-1"
--- =_NextPart_001
to, subject
etc
now i see on the bottom of this message
Content-type: image/gif;
There is also a good article on the topic at
http://www.stonehenge.com/merlyn/UnixReview/col30.html
Now, this simple deep_copy routine will break if there are recursive data pointers
(references that point to already seen data higher in the tree). For that, you might
look at the dclone method o
75 matches
Mail list logo
