[Printer Installation]: Problem withy X-64 and IA-64

Hi, I am able to install a printer by running the following command at the command prompt: rundll32 printui.dll,PrintUIEntry /if /b "" /f "" /r "LPT1:" /m "< PrinterModelName>" /z I am able to run the above command successfully and install the printer using "system" command in PERL in X86 machin

Re: tie problem ( Work out, but sounds weir )

> > > > And your PRINT method is wrong. The first argument is the object (which > > you don't need) and the second argument is the string being printed. > > > > sub PRINT { > > local $_ = $_[1]; > > s/./*/g; > > print; > > } > > but I am regret to tell that I still can't print. an

uninstall perlmodule

plz tell me how to uninstall a perl module... thanks Adam -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Error: Line too long

On Fri, 22 Oct 2004 02:05:33 -0700 (PDT), Melis Mutlu <[EMAIL PROTECTED]> wrote: > Hi, > > I would like to write a whole string into a file with > the following code: > > open(NEW, "new.txt") or die "cannot open new_acl.txt"; > open(OUT, ">test"); > while(my $line=) { >cho

Re: File read qn

David,Thanks much. I'll give it a shot and comeup with the code. This is a new learning to me today :) regards -Ajey On Sat, 23 Oct 2004, David le Blanc wrote: > On Fri, 22 Oct 2004 20:13:05 -0700 (PDT), Ajey Kulkarni <[EMAIL PROTECTED]> wrote: > > howdy!! > > I've a code snipped that reads the

Re: Limits on globbing?

On 22 Oct 2004 06:41:10 -0700, Randal L. Schwartz <[EMAIL PROTECTED]> wrote: > > "Bryan" == Bryan Harris <[EMAIL PROTECTED]> writes: > > Bryan> I'm using the: > > Bryan> @files = <*.in>; > > Bryan> ... notation with Perl 5.0. If I have too many files, @files ends up with > Bryan> nothing.

Re: Module help

On Fri, 22 Oct 2004 16:34:52 -0400, Bob Showalter <[EMAIL PROTECTED]> wrote: > Jim Goh wrote: > > Hi, > > I try to use module CGI::Session:DB_File for the following: > > > > #!/usr/bin/perl > > > > use strict; > > use CGI; > > use lib '.'; > > This is unnecessary; . is a part of @INC by defa

Re: What search string do I use on google or perldoc ...

On Sat, 23 Oct 2004 00:32:09 +0200, Jenda Krynicky <[EMAIL PROTECTED]> wrote: > From: Ken Wolcott <[EMAIL PROTECTED]> > > What search string do I use on google or perldoc so that I know how to > > display a specified range of lines from a file (like sed -n 24, 48p > > filename)? Have you considere

Re: File read qn

On Fri, 22 Oct 2004 20:13:05 -0700 (PDT), Ajey Kulkarni <[EMAIL PROTECTED]> wrote: > howdy!! > I've a code snipped that reads the file into array. > The file is a comma separated file. I want to say > get 4th column of the whole file in an array. > > @lines = LIB::readFile($opt{f}); > > My @lines

File read qn

howdy!! I've a code snipped that reads the file into array. The file is a comma separated file. I want to say get 4th column of the whole file in an array. @lines = LIB::readFile($opt{f}); My @lines has the whole comma separated file. I would like to now get the 4th column of whole file (using @

gritty multi-line multi-part in-place edit

Hi, all -- I am trying to do a multi-line, multi-part in-place edit on a number of shell scripts. It's easy enough for the first chunk; I escaped the '@' chars and off we went, thanks to -00 on the command line. I then ran into problems with a bigger section, which contains braces, brackets, par

Re: What search string do I use on google or perldoc ...

From: Ken Wolcott <[EMAIL PROTECTED]> > What search string do I use on google or perldoc so that I know how to > display a specified range of lines from a file (like sed -n 24, 48p > filename)? Whatever you like. I doubt you'll find anything. > s2p no longer operates the way I used to use it bac

What search string do I use on google or perldoc so that I know how to display a specified range of lines from a file (like sed -n 24, 48p filename)?

A fishing pole question rather than a fish question :-) What search string do I use on google or perldoc so that I know how to display a specified range of lines from a file (like sed -n 24, 48p filename)? s2p no longer operates the way I used to use it back in perl 3x days :-) man s2p really di

RE: Module help

Jim Goh wrote: > Hi, > I try to use module CGI::Session:DB_File for the following: > > #!/usr/bin/perl > > use strict; > use CGI; > use lib '.'; This is unnecessary; . is a part of @INC by default. > use CGI::Session::DB_File; > ... > and the DB_File module also locate same directory as t

Module help

Hi, I try to use module CGI::Session:DB_File for the following: #!/usr/bin/perl use strict; use CGI; use lib '.'; use CGI::Session::DB_File; ... and the DB_File module also locate same directory as the script is. However stil get the following says can not find: Can't locate CGI/Session

File::Finder syntax

I appreciate the earlier tip on using the file finder module, but I'm having some trouble figuring out the right syntax to do what I want... I can't seem to limit the search to a specified directory or directories with the maxdepth parameter. Assuming it has that parameter, as I don't see it in

RE: scrolling_list and multiples

Charlotte Hee <[EMAIL PROTECTED]> wrote: : I tried replacing 'use CGI qw( :standard :html )' with : : print join ', ', @{ $CGI::EXPORT_TAGS{':standard'} }; : : but that just gave me the error : "Can't use an undefined value as an ARRAY reference at : SUslac01test line 15." : : I'm not sure

RE: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > I will make attempt. give me hints at least This is ridiculous, you aren't even trying. Re-read the thread, there were several suggestions in it, not least of which was the recommendation that you look over some Perl regular expression tutorials,

Re: zcat

Thanks Mark. Just changing the single quotes to double quotes worked for me. Your help is appreciated. Manas. Quoting Mark Goland <[EMAIL PROTECTED]>: > > - Original Message - > From: <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Friday, October 22, 2004 1:27 AM > Subject: zca

RE: how the print the first 7 letter of file name

Hi I will make attempt. give me hints at least regards sreedhar -Original Message- From: Chris Devers [mailto:[EMAIL PROTECTED] Sent: 22 October 2004 17:46 To: Kalkunte-Venkatachala, Sreedhar Cc: Perl Beginners List Subject: RE: how the print the first 7 letter of file name On Fri, 22

RE: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > ok. I think I have ask a wrong question. Believe me , I am not asking > some non-sense question. The questions are fine. The problem is that you have to make an attempt to answer them yourself before you can expect others to help you. As I've stat

RE: how the print the first 7 letter of file name

Hi ok. I think I have ask a wrong question. Believe me , I am not asking some non-sense question. I really stuck with problem. If you want to give solution give me. Otherwise with the hint you have given (regular expression) I will find out. Thanks for hint Regards Sreedhar -Original Mes

RE: how the print the first 7 letter of file name

[EMAIL PROTECTED] wrote: > I tried the way in which you have suggested > == > #!/perl -w and then later, [EMAIL PROTECTED] wrote: > this is what i tried > > #!/sbcimp/run/pd/perl/5.8.2/bin/perl -w WTF? I give up. -- To unsubscribe, e-mail: [EMAIL PROTECT

RE: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > this is what i tried > > #!/sbcimp/run/pd/perl/5.8.2/bin/perl -w > my $name = basename($FILENAME, > "\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log"); > $name =~ s/_*.*//s; > print $name; > > does it mak

RE: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > I have not tried any thing believe me. I absolutely believe you, and that's exactly why I'm not spelling it out for you. If you try anything, then you can expect some help. > I am not getting the logic to find also. You use a regular expression m

RE: how the print the first 7 letter of file name

[EMAIL PROTECTED] wrote: > Hi > > I tried the way in which you have suggested > == > #!/perl -w > use File::Basename; > > $FILENAME="\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewPr ocess_date_22-oct-2004.log"; > my $name = basename($FILENA

RE: how the print the first 7 letter of file name

hi this is what i tried #!/sbcimp/run/pd/perl/5.8.2/bin/perl -w my $name = basename($FILENAME, "\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log"); $name =~ s/_*.*//s; print $name; does it make sence Regards Sreedhar -Original Message- From:

RE: how the print the first 7 letter of file name

hi I have not tried any thing believe me. I am not getting the logic to find also. Give me ideas. I will try and confirm you, if you don't believe me Regards Sridhar -Original Message- From: Chris Devers [mailto:[EMAIL PROTECTED] Sent: 22 October 2004 16:52 To: Kalkunte-Venkatachala,

RE: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > I have written a program to monitor logs. Here I am substituting the > file name dynamically say : > /irrelevant_path_info/fadsdsafasdffdsar_asdffdsa_asfdfsad_asfdfsda.log > > would be: _fadsds > > So, I am not getting logic to capture this name >

RE: how the print the first 7 letter of file name

Hi I have written a program to monitor logs. Here I am substituting the file name dynamically say : /asffasddas/asdfadssdaf/logfiles/safdfsda/asdsdaf/fadsdsafasdffdsar_asdffdsa_asfdfsad_asfdfsda.log would be: _fadsds So, I am not getting logic to capture this name Hope I am clear of my explan

RE: how the print the first 7 letter of file name

Please send all replies to the list, not to me directly. On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > I cannot use $np = "NewProcess" because it will be keep changing. Good -- so you recognize what you don't want. That's a start. > I cannot search '_' There is possibility that one more

RE: how the print the first 7 letter of file name

Hi I tried the way in which you have suggested == #!/perl -w use File::Basename; $FILENAME="\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log"; my $name = basename($FILENAME, '.log'); print substr($name, 0, 7);

RE: script how to interactive mode in telnet

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > What does the \r in system("\r\n\r"); do? Please look up the standard backslash characters. \r carriage return \n newline \f form feed They're all related, but distinct. > Where can I find some info on the system function/method? The perld

RE: how the print the first 7 letter of file name

[EMAIL PROTECTED] wrote: > Hi > > I have a problem > > I have > $FILENAME=C:\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewP rocess_date_22-oct-2004.log > > How to get 'NewProcess only word Use the basename() function from the File::Basename module to separate the file name from

Re: how the print the first 7 letter of file name

On Fri, 22 Oct 2004 [EMAIL PROTECTED] wrote: > I have a problem > > I have > $FILENAME=C:\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log > > How to get 'NewProcess only word > > kindly let me know This will do what you ask for: $np = "NewProcess"

RE: script how to interactive mode in telnet

Hey guys, A few questions from a beginner. :) What does the \r in system("\r\n\r"); do? Where can I find some info on the system function/method? Is it function or method? What is the proper terminology? And regarding all system ("command")'s below is the parenthesis required around the quotation

RE: how the print the first 7 letter of file name

Hi 7 letter will do.i.e. 'NewProc' regards Sreedhar -Original Message- From: Bakken, Luke [mailto:[EMAIL PROTECTED] Sent: 22 October 2004 16:12 To: [EMAIL PROTECTED] Subject: RE: how the print the first 7 letter of file name > Subject: how the print the first 7 letter of file name > >

RE: how the print the first 7 letter of file name

> Subject: how the print the first 7 letter of file name > > Hi > > I have a problem > > I have > $FILENAME=C:\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASD FDAFSASDF\NewProcess_date_22-oct-2004.log > > How to get 'NewProcess only word > > kindly let me know > > Regards > Sreedhar Your

how the print the first 7 letter of file name

Hi I have a problem I have $FILENAME=C:\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log How to get 'NewProcess only word kindly let me know Regards Sreedhar Visit our website at http://www.ubs.com This message contains confidential information and

Re: Limits on globbing?

> "Bryan" == Bryan Harris <[EMAIL PROTECTED]> writes: Bryan> I'm using the: Bryan> @files = <*.in>; Bryan> ... notation with Perl 5.0. If I have too many files, @files ends up with Bryan> nothing. Is there a way to read in all 20k names? Upgrade to Perl 5.6 or later. The globbing no long

Re: Limits on globbing?

On Fri, Oct 22, 2004 at 07:49:11AM -0400, Chris Devers wrote: > Is that a typo, or are you really running Perl 5.0 (zero) ? That version > of Perl must be something like 15 years old by now. 10 years old just this week, as it happens. Happy Birthday Perl 5. -- Paul Johnson - [EMAIL PROTECTED]

Re: Regular expression help

Bee wrote: I'd do a little add on for the string, so it much easier for split. # usuw; my $line = "M:356 358 386 R:#132 W1:319 NRT:32 R:#132"; print $line . "\n"; $line =~ s/(\s)(\w{1,}:)/\x00$2/g; # So I add extra delimiters here. print $line . "\n"; my @d = split /\x00/, $line; print "<$_> " for

Re: Limits on globbing?

If you have a question and get no response, PLEASE wait more than 90 minutes before sending your question in again. Give it at least a day, if not a couple of days. We're all volunteers here and expectations of immediate responses are not reasonable. Thanks. On Thu, 21 Oct 2004, Bryan Harris w

Re: cancatenate lists

On Fri, 22 Oct 2004 12:40:11 +0200 (CEST) c r <[EMAIL PROTECTED]> wrote: > How can I easily cancatenate two lists? > > i.e. > > @list1 = qw(1 2 3); > > @list2 = qw(4 5 6); untested push(@list1,@list2); Owen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail

Re: cancatenate lists

Don't answer!!! I found out myself. @list3 = (@list1,@list2) is the answer. c r <[EMAIL PROTECTED]> wrote: Hi! How can I easily cancatenate two lists? i.e. @list1 = qw(1 2 3); @list2 = qw(4 5 6); do some thing easy. result: @list3 = qw(1 2 3 4 5 6); I preferrably want

cancatenate lists

Hi! How can I easily cancatenate two lists? i.e. @list1 = qw(1 2 3); @list2 = qw(4 5 6); do some thing easy. result: @list3 = qw(1 2 3 4 5 6); I preferrably want to avoid the sequence: foreach element in list...shift...push to another listand so on, because I ha

Re: Error: Line too long

On Fri, 22 Oct 2004 02:05:33 -0700 (PDT) Melis Mutlu <[EMAIL PROTECTED]> wrote: > Hi, > > I would like to write a whole string into a file with > the following code: > > open(NEW, "new.txt") or die "cannot open new_acl.txt"; > open(OUT, ">test"); > while(my $line=) { > c

Re: zcat

On Fri, 22 Oct 2004 01:27:22 -0400 [EMAIL PROTECTED] wrote: > I have a gunzip file which I have to decompress through a perl script > and copy the uncompressed file to another file. > I used this > > system('zcat -c $filename > out'); > where the filename is stored in $filename. > > zcat gave

Error: Line too long

Hi, I would like to write a whole string into a file with the following code: open(NEW, "new.txt") or die "cannot open new_acl.txt"; open(OUT, ">test"); while(my $line=) { chop $line; $string=$string.$line; print OUT $string

Limits on globbing?

I have a directory with around 20k files in it (input files to a simulation, if it matters). I've written a perl script that will build a run script for input files, but it doesn't work when I pass a certain limit... (I think it's characters, not number of files.) I'm using the: @files = <*.i

Limits on globbing?

I have a directory with around 20k files in it (input files to a simulation, if it matters). I've written a perl script that will build a run script for input files, but it doesn't work when I pass a certain limit... (I think it's characters, not number of files.) I'm using the: @files = <*.i

Re: Regular expression help

> __DATA__ > M:356 358 386 R:#132 W1:319 NRT:32 R:#132 > > > but I would really like it to capture the first part of the element so that the result would be; > > M:356 358 386 R:#132 W1:319 NRT:32 R:#132 > $y[0] > $y[1] M 356 358 386 > $y[2] R #132 > $y[3] W1 319 > $y[4] NRT 32 > $y[5] R #132 >