Re: problem in array accessing

"N, Guruguhan (GEAE, Foreign National, EACOE)" wrote: > Hi All, >I have written a perl code for filtering data contained in a file > ($input_file_name) based on the filter expression($expr). While doing this, I face > some problems. When I hard code the arrays @data and @col > ( in

Re: packages and variables

Ralf Schaa wrote: > Cheers all, > > i am doing my first steps with writing packages/modules and of course > there are problems: > > the module holds a variable in a subroutine. this variable i like to > pass to the callerprogram, Dont. Just don't. Use good design in your program instead. Good

Re: Cache::Filecache Question

"Michael C. Davis" wrote: > Hi, I'm having trouble finding much documentation of namespaces as used > with Cache::FileCache. I've read the CPAN page and it doesn't say much > about that particular issue. Could anyone point me to anything more > explanatory. > > My particular interest is in the r

Re: Any way for Perl to write RTF within email as the body of an email without attachments

"Wagner, David --- Senior Programmer Analyst --- WGO" wrote: > I am just trying to give my user what they asked for and they do not want > any attachments. I was using what Jan K suggested, but obviously missing more than > just a little bit. > > Wags ;) Sound like you're stuck with it

Re: perl hex editor

[ TOFU fixed ] Joel wrote: > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > Joel wrote: > > > > > > I'm trying to write a program in perl that will take a binary file, > > > convert it to hex, then save it to a text file. > > > > Perhaps this is what you want: > > > > #!/usr/bin/perl > > use

RE: perl hex editor

Does it need to be Hex? Have you considered 'base64'?? (1) There are plenty of modules to do so (2) It's a portable format (3) It's a 30% growth in filesize rather than 100% (ie, each 8 bits becomes 6 rather than 4) (4) You can unpack the data with other utilities. sample

Re: perl hex editor

Joel wrote: > Thanks, that works perfectly. Now I just have to figure out how to turn it > back into a valid file. I tried using "pack 'b*'" but I had no luck. Any > suggestions? > > Joel Depends on how the bytes are stored at the point where you are ready to print them. Presuming numerically by

Re: Checking filenames? [:: ?Kinda Solved? ::]

Wc -Sx- Jones wrote: > > Jas wrote: > > > >> chomp(my $userid = `/usr/ucb/whoami` || `/usr/bin/whoami` || 'root'); > > > > I am not sure what this means? Is this the process ID or the perl > > script is running as a root user? > > Nope, it is a simple short circuit to see > who the UserID progra

Re: Checking filenames? [:: ?Kinda Solved? ::]

Wc -Sx- Jones wrote: > > Charles K. Clarkson wrote: > > > Make 'Indians' an array. > > > > my( $onelittle, > > $twolittle, > > $threelittle, ) = ('Indians') x 3; > > Create it with a HereDoc =) Oh, how do you do that? John -- use Perl; program fulfillment -- To unsubscribe, e-

Re: Checking filenames? [:: ?Kinda Solved? ::]

"Charles K. Clarkson" wrote: > > WC -Sx- Jones [mailto:[EMAIL PROTECTED] > : > : Hmmm, I get 3 Indians in only the first variable anyways =/ > : > : # Make -w / use strict; happy... > : my ($onelittle, > : $twolittle, > : $threelittle, > : ) = 'Indians' x 3; > > Ahh

nucleotide seq Was Re: Checking filenames? [:: ?Kinda Solved? ::]

Sumit Kaur wrote: Hi, I have to write my first Perl script . This scripts Searches for rare = codons in nucleotide sequence . The nucleotide sequence is entered by = the user in the format "ATTGCAA.." and then the program breaks this = sequence in the groups of three alphabets like ATT,GCA...so no

Re: Checking filenames? [:: ?Kinda Solved? ::]

On Friday 05 March 2004 02:03, Sumit Kaur generously enriched virtual reallity by making up this one: > Hi, Hi, > I have to write my first Perl script . This scripts Searches for rare = > codons in nucleotide sequence . The nucleotide sequence is entered by = > the user in the format "ATTGCAA..

RE: Checking filenames? [:: ?Kinda Solved? ::]

Hi, I have to write my first Perl script . This scripts Searches for rare = codons in nucleotide sequence . The nucleotide sequence is entered by = the user in the format "ATTGCAA.." and then the program breaks this = sequence in the groups of three alphabets like ATT,GCA...so no.=20 Please sugg

Re: Checking filenames? [:: ?Kinda Solved? ::]

Charles K. Clarkson wrote: Make 'Indians' an array. my( $onelittle, $twolittle, $threelittle, ) = ('Indians') x 3; Create it with a HereDoc =) -Bill- __Sx__ http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PRO

RE: Checking filenames? [:: ?Kinda Solved? ::]

WC -Sx- Jones [mailto:[EMAIL PROTECTED] : : Hmmm, I get 3 Indians in only the first variable anyways =/ : : : #! /usr/bin/perl -w : : use strict; : : # Make -w / use strict; happy... : my ($onelittle, : $twolittle, : $threelittle, : ) = 'Indians' x 3; Ahh! Gra

Re: Checking filenames? [:: ?Kinda Solved? ::]

Hmmm, I get 3 Indians in only the first variable anyways =/ #! /usr/bin/perl -w use strict; # Make -w / use strict; happy... my ($onelittle, $twolittle, $threelittle, ) = 'Indians' x 3; print "1 $onelittle 2 $twolittle 3 $threelittle\n\n"; __END__ Output - bash-2.05$ p

Re: perl hex editor

Thanks, that works perfectly. Now I just have to figure out how to turn it back into a valid file. I tried using "pack 'b*'" but I had no luck. Any suggestions? Joel - Original Message - From: "John W. Krahn" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, March 03, 2004 5:3

Re: Checking filenames? [:: ?Kinda Solved? ::]

Jas wrote: chomp(my $userid = `/usr/ucb/whoami` || `/usr/bin/whoami` || 'root'); I am not sure what this means? Is this the process ID or the perl script is running as a root user? Nope, it is a simple short circuit to see who the UserID program of the program was; It states that if I cant tell

Re: Passing Data Between Servers

On Thursday 04 March 2004 22:26, Tim generously enriched virtual reallity by making up this one: > > Paul, > "Network Programming with Perl" by Stein is a good place to start. It > discusses forking children, blocking and non-blocking I/O, among others, > which will be considerations you'll want t

RE: Checking filenames? [:: ?Kinda Solved? ::]

Jas <[EMAIL PROTECTED]> wrote: : : Wc -Sx- Jones wrote: : : > In Cyberspace -- Jas wrote: : > : > > # Create empty variables : > > my $year = ""; : > > my $month = ""; : > > my $day = ""; : > > my $c_year = ""; : > > my $c_month = ""; : > > my $c_day = ""; : > : > Less wordy... : > : > my ( $y

Re: Passing Data Between Servers

At 03:37 PM 3/4/04 -0500, you wrote: > I have a sco server which I hate to work on and I do not have full admin > rights to. (We don't own it). > > I would like to be able to take any data that is sent to a perl script and > then just send out to another perl script that would be waiting to accept

Passing Data Between Servers

> I have a sco server which I hate to work on and I do not have full admin > rights to. (We don't own it). > > I would like to be able to take any data that is sent to a perl script and > then just send out to another perl script that would be waiting to accept > it. > > Then based on the content

Re: Checking filenames? [:: ?Kinda Solved? ::]

Wc -Sx- Jones wrote: Jas wrote: Wc -Sx- Jones wrote: In Cyberspace -- Jas wrote: my @files; find(sub { push @files,$File::Find::name },"/path/to/www/"); Archive::Tar->create_archive("www.tar",0,@files); Never hard-code your paths... Eases maintenance later... Can you show me an e

Re: Handling blank lines in while() construct

Michael Weber wrote: > > I wrote a perl script that adds colors to text streams on the fly. It's > really handy for watching log files as they run past. I watch my mail > log files after making config changes and can mark "reject" in red, > "spam" in blue, discard is red and my console beeps, etc

Re: Checking filenames? [:: ?Kinda Solved? ::]

Jas wrote: Wc -Sx- Jones wrote: In Cyberspace -- Jas wrote: my @files; find(sub { push @files,$File::Find::name },"/path/to/www/"); Archive::Tar->create_archive("www.tar",0,@files); Never hard-code your paths... Eases maintenance later... Can you show me an example of how to do this? Eit

RE: Array of objects

Bob, Your guess is perfect. Thanks a lot. All the problems happened due to misunderstanding of class behaviour. ( new() and get() functions). cheers, Jay -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Thursday, March 04, 2004 1:38 PM To: Jayakumar Rajagopal;

RE: Array of objects

Bob, Thanks. Already I have been working out on the same row. I think I misunderstood significance of self reference, which is first parameter of methods. After finishing I would mail. regards, Jay -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Thursday, Mar

Re: what is similar to shell `du' in perl

Ralf Schaa <[EMAIL PROTECTED]> writes: > hi there, > > i helped myself with : $volsize = `du -ms $item` > with the backticks-operator (``) the system-own function is used and > output is written in the variable $volsize - check backtick-operator. > > works also on windows when the unxutils are in

Re: what is similar to shell `du' in perl

Steve Mayer <[EMAIL PROTECTED]> writes: > Harry, > > Here's an implementation of du written in Perl. > > http://www.perl.com/language/ppt/src/du/du.hewgill Nice ... thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: [Perl-beginners] Perl script to switch user to root.

you obviously didn't read the sudo help pages, you can run the script as user y and let it do root things by using sudo reboot for example the system should reboot when you have defined sudo correctly. man sudo should help you further on the way :) -- Kind regards, Remko Lodder Elvandar.org/DSI

Re: Checking filenames? [:: ?Kinda Solved? ::]

Wc -Sx- Jones wrote: In Cyberspace -- Jas wrote: my @files; find(sub { push @files,$File::Find::name },"/path/to/www/"); Archive::Tar->create_archive("www.tar",0,@files); Never hard-code your paths... Eases maintenance later... Can you show me an example of how to do this? # Create A

Re: loop until key is pressed

At 11:00 AM 3/4/04 -0600, you wrote: I'd like to use a while construct to loop until a key, any key, is pressed. I'm aware of the source for input, but with what function do I check for key presses regardless of ? forgot to add : ReadMode 'cbreak'; before, and ReadMode 'normal'; after. should read

RE: Array of objects

Jayakumar Rajagopal wrote: > Hi , > I have to store list of objects in Array. At the end, @arr contains n > copies of last $obj, but not every $obj created. I tried storing both > object, ref of object. Array contains different references, but same > data. Please help. > thanks, > Jay > > the cu

Re: Array of objects

Jayakumar Rajagopal wrote: Hi , I have to store list of objects in Array. At the end, @arr contains n copies of last $obj, but not every $obj created. I tried storing both object, ref of object. Array contains different references, but same data. Please help. thanks, OK, this URL is not your qu

Re: loop until key is pressed

At 11:00 AM 3/4/04 -0600, you wrote: I'd like to use a while construct to loop until a key, any key, is pressed. I'm aware of the source for input, but with what function do I check for key presses regardless of ? Use the CPAN module Term::ReadKey, and try to read a key in non-blocking mode by

Re: [Perl-beginners] Perl script to switch user to root.

Actually, My program has a list of stuff to be done which needs to be done as say user "x". Then I need to switch user to root as the rest of the program needs to do stuff as user root. so, me doing system("sudo su root"); doesn't help as it asks for the password. On Mar 4, 2004, at 10:08 AM,

Re: Perl script to switch user to root.

Silky Manwani wrote: Hello, I want to write a perl script to switch user (to root). The problem is that since it asks for the password, I am not sure how I would pass it thru the script. I know I can run the "su root" with the system command in perl, but how do I take care of passing the passwo

RE: [Perl-beginners] Perl script to switch user to root.

perhaps you should let the script do something like SUDO, and permit it to run a single command, or limited commandset of root operations, even without password, (you dont want that actually but since sudo can log stuff, it might be what you aim for) Cheers -- Kind regards, Remko Lodder Elvanda

Cache::Filecache Question

Hi, I'm having trouble finding much documentation of namespaces as used with Cache::FileCache. I've read the CPAN page and it doesn't say much about that particular issue. Could anyone point me to anything more explanatory. My particular interest is in the relation between namespace and specific

Re: Problm encountered in using DBI

Nilay Puri wrote: > I am trying to connect to ORACLE thru perl > I have included use DBI. > > On running script I get this error . > > install_driver(Oracle) failed: Can't load > '/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so > ' for module DBD::Oracle: ld.so.1

Perl script to switch user to root.

Hello, I want to write a perl script to switch user (to root). The problem is that since it asks for the password, I am not sure how I would pass it thru the script. I know I can run the "su root" with the system command in perl, but how do I take care of passing the password. Thanks. -- To u

Re: Checking filenames? [:: ?Kinda Solved? ::]

In Cyberspace -- Jas wrote: my @files; find(sub { push @files,$File::Find::name },"/path/to/www/"); Archive::Tar->create_archive("www.tar",0,@files); Never hard-code your paths... Eases maintenance later... # Create Archive from recently created tarball my $gz = system('gzip -9 www.tar');

Array of objects

Hi , I have to store list of objects in Array. At the end, @arr contains n copies of last $obj, but not every $obj created. I tried storing both object, ref of object. Array contains different references, but same data. Please help. thanks, Jay the current code looks like this : $n=0; my @arr=(

Re: Checking filenames? [:: ?Kinda Solved? ::]

Well seeing as how I am still really new to using perl I have accomplished what I set out to do and figured I would share it. The goal, a simple perl script to backup a web directory, compress the archive and then ftp the file(s) to a remote server. If anyone knows how to make this more robust,

Re: Handling blank lines in while() construct

Michael Weber wrote: open (CONF, $ARGV[0]) || die "Can't open config file $ARGV[0], $!\n"; while () { while() { chomp; s/^\s+//; s/\s+$//; next unless length; ... @conf_line=split(","); As far as this: "$yellow")} elsif ( $conf_line[1] =~ "blue" ) {push(@color_

loop until key is pressed

I'd like to use a while construct to loop until a key, any key, is pressed. I'm aware of the source for input, but with what function do I check for key presses regardless of ?

Re: what is similar to shell `du' in perl

hi there, i helped myself with : $volsize = `du -ms $item` with the backticks-operator (``) the system-own function is used and output is written in the variable $volsize - check backtick-operator. works also on windows when the unxutils are installed (sourceforge.net) cheers, -ralf Harry Putna

Re: what is similar to shell `du' in perl

Harry Putnam wrote: I'm spending lots of time looking thru perl functions but not finding something to give me a quick reading on the size of a directory. How is that task handled in perl? First of all, you can use du: $output = `du -sk /etc`; ($kilobytes) = $output =~/^(\d+)/ or die; There's als

RE: packages and variables

Hi Ralf, TMHO, you should create the $test before printing it. In fact, change print "1: $testThis::test\n"; into testMod::testThis(); and afterwards, the $test will be available. OR: having $test global is not so profitable because you want be able to have your pe

Re: what is similar to shell `du' in perl

Harry, Here's an implementation of du written in Perl. http://www.perl.com/language/ppt/src/du/du.hewgill Steve On Thu, Mar 04, 2004 at 10:07:05AM -0600, Harry Putnam wrote: > I'm spending lots of time looking thru perl functions but not finding > something to give me a quick reading on th

Re: packages and variables

Ralf Schaa wrote: the module 'testMod.pm'' #== package testMod; use strict; use Exporter; our @ISA = ("Exporter"); our @EXPORT= qw($test &testThis); our @EXPORT_OK = qw($test &testThis); sub testThis{ our $test = "test";} 1; the caller-program 'test.pl' #=

Re: Help me out!!!

Urvashi Mishra wrote: i am trying to implement multidimentional tree... and saw that a package called Tree::Nary already exits... i am use the above module and i am getting the following error ... Can't locate Tree/Nary.pm [EMAIL PROTECTED] < @INC contains: C:\perl\site\lib.> i have saved this mod

what is similar to shell `du' in perl

I'm spending lots of time looking thru perl functions but not finding something to give me a quick reading on the size of a directory. How is that task handled in perl? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Handling blank lines in while() construct

On Mar 4, 2004, at 9:16 AM, Michael Weber wrote: [snip background] Here's the loop where I read in the config file: open (CONF, $ARGV[0]) || die "Can't open config file $ARGV[0], $!\n"; while () { Try adding: next if m/^\s*$/; @conf_line=split(","); push(@trigger_array, "$co

Handling blank lines in while() construct

I wrote a perl script that adds colors to text streams on the fly. It's really handy for watching log files as they run past. I watch my mail log files after making config changes and can mark "reject" in red, "spam" in blue, discard is red and my console beeps, etc. It's REALLY nice. However, i

Re: Exit

Rob Dixon wrote: > I hope, and think, that I've helped several people to > be more eloquent in Perl. > > The language fascinates me in the way that nearly all > who can speak can use it: thanks to Larry, who knew > before we did what a programming language should have been. > > I remain available

Re: Help me out!!!

On Thursday 04 March 2004 1:17 pm, Urvashi Mishra wrote: > hi ! > > i am trying to implement multidimentional tree... and saw that a package > called Tree::Nary already exits... > > i am use the above module and i am getting the following error ... > Can't locate Tree/Nary.pm [EMAIL PROTECTED] < @I

Re: Reading File & grep according item 5 and sorting

On 3-mrt-04, at 09:56, R. Joseph Newton wrote: Bjorn Van Blanckenberg wrote: #!/usr/bin/perl use strict; use Getopt::Long; GetOptions(\my %opt, 'filepath=s'); my $filepath = (%opt->{'filepath'}); my @fields = (); my @sorted = (); my $lastbit = 1; my @bits = (); open(INFILE,$filepath); chomp(

Help me out!!!

hi ! i am trying to implement multidimentional tree... and saw that a package called Tree::Nary already exits... i am use the above module and i am getting the following error ... Can't locate Tree/Nary.pm [EMAIL PROTECTED] < @INC contains: C:\perl\site\lib.> i have saved this module in this dir

packages and variables

Cheers all, i am doing my first steps with writing packages/modules and of course there are problems: the module holds a variable in a subroutine. this variable i like to pass to the callerprogram, so it is in the @EXPORT_OK and even in the @EXPORT. So far so good, i thought! but nothing happ

Re: Metacharacter problem in regexp

Petri Rautakoski wrote: I'm making a text replace and my text to search includes a metacharacter (. The text to be searched has been stored in a scalar for example $search. The text where the search will be made has been stored for example in a scalar $text. Here is what I'm doing: $search = "fo

Re: jump out of conditional loop

stephen kelly wrote: hi there what syntax do i use to jump out of a conditional loop for c/java it break; return; what is it in perl syntax> perldoc -f last last LABEL lastThe "last" command is like the "break" statement in C (as used in loops); it immediately exits the

Re: jump out of conditional loop

On Thursday 04 March 2004 02:02 am, stephen kelly wrote: > hi there > what syntax do i use to jump out of a conditional loop > for c/java it break; return; what is it in perl syntax> > > thx > steve while( ... ) { # or for, foreach, etc. ... last; # == break ... next; # ==

jump out of conditional loop

hi there what syntax do i use to jump out of a conditional loop for c/java it break; return; what is it in perl syntax> thx steve -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Problm encountered in using DBI

Try following commands and tell us what you see for each of them: 1) ldd -s /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so 2) perl -v 3) /usr/local/bin/perl -v 4) perl -e 'use DBD::Oracle;' 5) /usr/local/bin/perl -e 'use DBD::Oracle;' José. -Original Message-

Re: Metacharacter problem in regexp

Petri Rautakoski wrote: > > Hi! Hello, > I'm making a text replace and my text to search includes a metacharacter (. > The text to be searched has been stored in a scalar for example $search. > The text where the search will be made has been stored for example in a scalar > $text. Here is what I

RE: Problm encountered in using DBI

No, I am on Sun Solaris m/c And i have find out that I have libclntsh.so while the errro that script throws is for libclntsh.so.1.0 So, any hint how to go about it Solaris experts ? thanks -Original Message- From: Urvashi Mishra [mailto:[EMAIL PROTECTED] Sent: Thursday, March 04, 2004 5:

problem in array accessing

Hi All, I have written a perl code for filtering data contained in a file ($input_file_name) based on the filter expression($expr). While doing this, I face some problems. When I hard code the arrays @data and @col ( in red color) in the code, I am getting the results. But the moment

Problm encountered in using DBI

Hi All, I am trying to connect to ORACLE thru perl I have included use DBI. On running script I get this error . install_driver(Oracle) failed: Can't load '/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/DBD/Oracle/Oracle.so ' for module DBD::Oracle: ld.so.1 : /usr/local/bin/perl: fat

Re: Exit

We'll miss you, shure Gabaux Linux is like a wigwam: no gates, no windows, and an apache inside! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: PERL concatenating directory names

I'm on a Windows 2000 environment - and yes, I agree that using the PERL conventions would be best. Unfortunately, there is a specific request for this command to be used in this basic format. I've used the command in a shell script (.sh) and it works fine, but no luck in PERL. If you have any m

RE: Exit

Thanks Rob for your great help in this list. I was always impressed by your elegant coding. You are one the best Perl Programmer I have seen. And I learned a lot from you, thanks ! Wish you all the best for the future ... José. -Original Message- From: Rob Dixon [mailto:[EMAIL PROTECTED]

Re: Reformatting the Date

I fix it that with an Oracle Function (to_char()). Thank you - Original Message - From: "Morten Liebach" <[EMAIL PROTECTED]> To: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Thursday, March 04, 2004 11:03 AM Subject: Re: Reformatting the Date > On 2004-03-03 11:54:51 +0200, John wrote:

Re: Reformatting the Date

On 2004-03-03 11:54:51 +0200, John wrote: > I receive the date from the Oracle as DD/MM/YY and i want to insert > that date in a mysql date field. > > I know that mysql date form is -MM-DD. > > Well, do you know if there is any date function to do the job? Yes, Date::Manip, it can do almost

RE: Exit

Thanks Rod for your great help in this list. I was always impressed by your elegant coding. You are one the best Perl Programmer I have seen. And I learned a lot from you, thanks ! Wish you all the best for the future ... José. -Original Message- From: Rob Dixon [mailto:[EMAIL PROTECTED]

Re: Metacharacter problem in regexp

I already tried that, but it didn't work for me, don't know why. The \Q$pattern\E worked so my problem is solved. Petri > Petri Rautakoski wrote: > > > > > $text =~ s|for example \(this\)|$toBeReplaced|; > > > > works fine, but how can I backslash the metacharacters in a scalar? > > Lookup "q