I need help here

Hi, I am very new to PERL and I need a program to do following task. Can u help me pls. I have a file with following contents. 454 NV_DS_DEFAULT_BAUDRATE_I 455 NV_DIAG_DEFAULT_BAUDRATE_I 516 NV_WCDMA_RX_LIN_VS_TEMP_I I am expecting out put like NV_DS_DEFAULT_BAUDRATE_I 454

Re: implementing links on a system command output

Derek Smith/Staff/OhioH ealth

Re: implementing links on a system command output

On Friday October 14 2005 11:21 am, [EMAIL PROTECTED] wrote: Derek Smith/Staff/OhioH ealth To beginners-cgi@perl.org 10/12/2005 05:52

Re: implementing links on a system command output

On Fri, 14 Oct 2005 [EMAIL PROTECTED] wrote: I have written a CGI Perl program that allows my users to view relevant data. The data is produced by a Unix application command and I have told it to write to a intranet page that looks like: What it looks like is irrelevant. The raw HTML is a

Re: implementing links on a system command output

On 10/14/05, Chris Devers [EMAIL PROTECTED] wrote: On Fri, 14 Oct 2005 [EMAIL PROTECTED] wrote: I have written a CGI Perl program that allows my users to view relevant data. The data is produced by a Unix application command and I have told it to write to a intranet page that looks

Re: implementing links on a system command output

Jay Savage [EMAIL PROTECTED] l.com

Re: implementing links on a system command output

On Friday October 14 2005 12:07 pm, [EMAIL PROTECTED] wrote: Jay Savage [EMAIL PROTECTED] l.com To beginners-cgi@perl.org 10/14/2005 11:56

Re: implementing links on a system command output

Greg Jetter [EMAIL PROTECTED] n.com

Getting started on standalone Windows machine

Hi all, I have perl cgi installed successfully on my windows machine. I would like to write a perl cgi program and display it in the browser on my own Windows XP machine. To this end, I followed instructions in L. Stein's book and created a registry ScriptMap called .pl of type REG_SZ with

Re: I need help here

On Oct 14, 2005, at 7:22 AM, Sreedhar reddy wrote: Hi, I am very new to PERL and I need a program to do following task. Can u help me pls. I have a file with following contents. 454 NV_DS_DEFAULT_BAUDRATE_I 455 NV_DIAG_DEFAULT_BAUDRATE_I 516 NV_WCDMA_RX_LIN_VS_TEMP_I I am expecting out

ENV(Y)?

Hi there! I'd like to get a list of enviromentvariables from the *NIX-system. I'd like it in the format... ENV1=x1 ENv2=x2 ENV3=x3 and so on... I think I have to use ENV-command. (http://perldoc.perl.org/Env.html) Is that right? I don't understand how I get this kind of listing. Please put me

Re: ENV(Y)?

Hi Gustav - At 2005-10-13, 23:13:33 you wrote: Hi there! I'd like to get a list of enviromentvariables from the *NIX-system. I'd like it in the format... ENV1=x1 ENv2=x2 ENV3=x3 and so on... I think I have to use ENV-command. (http://perldoc.perl.org/Env.html) Is that right? I don't

Re: ENV(Y)?

Hi! Thanx a LOT!!! /G http://www.varupiraten.se/ Hi Gustav - At 2005-10-13, 23:13:33 you wrote: Hi there! I'd like to get a list of enviromentvariables from the *NIX-system. I'd like it in the format... ENV1=x1 ENv2=x2 ENV3=x3 and so on... I think I have to use ENV-command.

using XS for calling exported methods from a DLL

Hi Is there a way to call exported methods from a DLL without using win32::API. Has anyone tried calling an exported function from C DLL in a Perl Program using XS. I have a C DLL's source file and its header file and using h2xs D:\DLLProjects\simpledll3h2xs -n ext2 simpledll3.h Writing

Space proplem

Hi There; i have this problem of space in my program. The program requires a user to send in Either GU1 or TR1. When they send GU1 or TR1 it accepts it and that is fine. But My concern is; if they send GU 1 or TR 1(Leaving spaces before the number) then the program doesn't accept. It goes

Re: ENV(Y)?

Hi! Just a quick question. Can I set or unset an enviromentvariable through this Hash? I just need a yes ... :-) If No, please give explanation... /G http://www.varupiraten.se/ Hi! Thanx a LOT!!! /G http://www.varupiraten.se/ Hi Gustav - At 2005-10-13, 23:13:33 you wrote: Hi there!

Re: Re: ENV(Y)?

Hi gustav - At 2005-10-13, 23:42:22 you wrote: Hi! Just a quick question. Can I set or unset an enviromentvariable through this Hash? I just need a yes ... :-) If No, please give explanation... Not really. If you do something like: $ENV{SOMEVAR} = 'somevalue'; SOMEVAR will be available to

Re: using XS for calling exported methods from a DLL

Hi Sam- At 2005-10-14, 00:05:10 you wrote: Hi Is there a way to call exported methods from a DLL without using win32::API. Has anyone tried calling an exported function from C DLL in a Perl Program using XS. [snipped] YES! First, your error is caused because you need an 'export' library

Re: Space proplem

Hi Martha, Although I do not understand exactly what it is that you want, the following could help ... #1# $msg =~ s/\/'/igx; #2# if (($msg=~ /gu1/i) ($msg !~ /gu1[0123456789]+/i)) First remove line #1#. I guess you did an attempt to remove quotes here, that weren't even there (you can see if

I need help here

Hi, I am very new to PERL and I need a program to do following task. Can u help me pls. I have a file with following contents. 454 NV_DS_DEFAULT_BAUDRATE_I 455 NV_DIAG_DEFAULT_BAUDRATE_I 516 NV_WCDMA_RX_LIN_VS_TEMP_I I am expecting out put like NV_DS_DEFAULT_BAUDRATE_I 454

Re: Re: ENV(Y)?

Hi again! I've been looking around... And one thing I don't get. You tell me that SOMEVAR will be available to you in your program and any programs you spawn( with 'system' or backtics). But after your perl script ends, SOMEVAR is lost) and this seems to be correct when I test my program, but I

Re: Thank you for your answer. And yesterday i was write from Nahid`s email address

If you want to discuss Beginners Perl, send your messages to the beginners@perl.org list address. I am a subscriber and will see your response there, as will dozens of other helpful people. On Fri, 14 Oct 2005 [EMAIL PROTECTED] wrote: My name is Ulfet. Yesterday i was written from Nahid`s

Re: I need help here

On Fri, 14 Oct 2005, Sreedhar reddy wrote: I am very new to PERL and I need a program to do following task. Can [you] help me [please][question-mark] I have a file with following contents. 454 NV_DS_DEFAULT_BAUDRATE_I 455 NV_DIAG_DEFAULT_BAUDRATE_I 516 NV_WCDMA_RX_LIN_VS_TEMP_I I am

Re: Re: Re: ENV(Y)?

Hi Custav - At 2005-10-14, 02:23:59 you wrote: Hi again! I've been looking around... And one thing I don't get. You tell me that SOMEVAR will be available to you in your program and any programs you spawn( with 'system' or backtics). But after your perl script ends, SOMEVAR is lost) and this

Re: Re: Re: ENV(Y)?

AHA!! Ok, thanx! Now I understand it better... :-) /G http://www.varupiraten.se/ Hi Custav - At 2005-10-14, 02:23:59 you wrote: Hi again! I've been looking around... And one thing I don't get. You tell me that SOMEVAR will be available to you in your program and any programs you spawn(

RE: Perl for Windows xp

http://www.activestate.com/store/languages/register.plex?id=ActivePerl Try here friend Armando Gomez Guajardo Process Engineer Work Ph 956 547 6438 Beeper956 768 4070 -Original Message- From: Jenny Chen [mailto:[EMAIL PROTECTED] Sent: Thursday, October 13, 2005 6:11 PM To:

RE: I need help here

Hi Chris... I tried like this... INPUT = fopen(filename); OUTPUT -- I opend another file here to write output while(INPUT) { chomp @_; @strings = split(@_, ); print OUTPUT strings[1] + strings[0]; } But I got error msg...Can u modify this program if it is correct??? -Original

RE: I need help here

Chris- Can u suggest good links to gain good knowledge in PERL... Thanks, Sridhar Reddy -Original Message- From: Chris Devers [mailto:[EMAIL PROTECTED] Sent: Friday, October 14, 2005 6:06 PM To: Sreedhar reddy Cc: beginners@perl.org Subject: Re: I need help here On Fri, 14 Oct

RE: I need help here

You accidentally replied just to me, not to the list. Please don't do that. Send all messages to the list and I will read them there, along with all the other helpful list subscribers. On Fri, 14 Oct 2005, Sreedhar reddy wrote: I tried like this... INPUT = fopen(filename); OUTPUT -- I

Space problem

Hi All, I received some response to my problem but unfortunately my problem isn't solved, I'm still struggling.. Thank you all for your contribution Here is a better short code for the program which gives a clear picture of what I'm trying to ask help for. use DBI; $dsn=

Identifying or finding paragraphs

Question: How do you find a paragraph break in perl? Synopsis: In a string I need to find the paragraph breaks and replace it with a ^P. Here is my code. #!/usr/bin/perl -w use strict; use Text::Wrap; $my text = 'This is the FIRST paragraph. This is the SECOND paragraph.'; print

Re: Identifying or finding paragraphs

On Oct 14, 2005, at 16:13, Dave Adams wrote: Question: How do you find a paragraph break in perl? Synopsis: In a string I need to find the paragraph breaks and replace it with a ^P. Here is my code. How are paragraphs delimited? Can you give an example with a couple of paragraphs and the

Re: Space problem

Martha kavishe ha scritto: Hi All, I received some response to my problem but unfortunately my problem isn't solved, I'm still struggling.. Thank you all for your contribution Here is a better short code for the program which gives a clear picture of what I'm trying to ask help for. use

Re: Identifying or finding paragraphs

How paragraphs are delimited is actually my question. In otherwords, when perl reads in my string, can it identify where the paragraphs breaks are? In my example, $text was created in wordpad where 'This is the FIRST paragraph' and 'This is the SECOND paragraph' are seperated by a paragraph

Re: Identifying or finding paragraphs

On Fri, 14 Oct 2005, Dave Adams wrote: How paragraphs are delimited is actually my question. In otherwords, when perl reads in my string, can it identify where the paragraphs breaks are? In my example, $text was created in wordpad where 'This is the FIRST paragraph' and 'This is the SECOND

Re: Identifying or finding paragraphs

Please remove my email address from your list, thanks Tom On 10/14/05, Chris Devers [EMAIL PROTECTED] wrote: On Fri, 14 Oct 2005, Dave Adams wrote: How paragraphs are delimited is actually my question. In otherwords, when perl reads in my string, can it identify where the paragraphs

Re: Thank you for your answer. And yesterday i was write from Nahid`s email address

Please remove my email address from your list, thanks Tom On 10/14/05, Chris Devers [EMAIL PROTECTED] wrote: If you want to discuss Beginners Perl, send your messages to the beginners@perl.org list address. I am a subscriber and will see your response there, as will dozens of other helpful

Re: Space problem

Martha kavishe am Freitag, 14. Oktober 2005 15.47: Hi All, Hi Martha Marcello already explained that the shell uses spaces to separate arguments, e.g. # my_prog gu 1 passes gu and 1 in @ARGV to the prog, while # my_prog gu 1 will pass only gu 1 (without quotes; these are handled by the

Re: using XS for calling exported methods from a DLL

- Original Message - Sent: Friday, October 14, 2005 12:24 PM If you want the complete module to copy/study/etc., let me know and I will send it to you off-list. Aloha = Beau; [EMAIL PROTECTED] 2005-10-14 Please send it to me also. I am trying to use a function from a dll. It has

Re: Re: ENV(Y)?

Hi! I got your mail from the Perl-malinglist. You have to unscribe from that list manually yourself. Best regards /G http://www.varupiraten.se/ - Original Message - From: Thomas J Hughes [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 14, 2005 6:19 PM Subject: Re: Re:

RE: Re: ENV(Y)?

Tom to unsubscribe send a blank email to these address [EMAIL PROTECTED] Cheers Armando Gomez Guajardo Process Engineer Work Ph 956 547 6438 Beeper956 768 4070 -Original Message- From: Gustav Wiberg [mailto:[EMAIL PROTECTED] Sent: Friday, October 14, 2005 12:28 PM To:

Quering Msql database from perl

hello, If i am running perl and i want to qury the Msql Database records how do that from perl. HERE ARE CLUES: DATABASE NAME: DOOM TABLE NAME: T_MAIN RECORDS:VOTE VOTES RECORD TO QUERY:VOTES PROCEDURE: WHERE A VALUE UNDER

Repetead values

Hi. My trouble is with a value duplicated value on a nested foreach, these are my variables: %names=( 1='NA' 2='NCW' 3='NE' 4='S' 5='SE' 6='SP' ); %hash{'2005-09-19'}{'1'}{'56'}=788; %hash{'2005-09-19'}{'1'}{'43'}=540;

Re: Quering Msql database from perl

On Oct 14, K.Moeng said: $dsn= dbi:mysql:db_doom:localhost; So it's a mysql table, not an Msql table. $statement = select msg from t_main where votes = (this is where Iam stuck) greater than others This is an SQL question rather than a Perl question, but I will answer it for you. In

non-ascii characters?

Does anyone know how I can search for non-ascii characters in a text file? --charlie -- Charles Farinella Appropriate Solutions, Inc. (www.AppropriateSolutions.com) [EMAIL PROTECTED] 603.924.6079 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Quering Msql database from perl

Sign up for the dbi-users list. http://dbi.perl.org/support/ -Original Message- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED] Sent: Friday, October 14, 2005 12:13 PM To: K.Moeng Cc: beginners@perl.org Subject: Re: Quering Msql database from perl snip This is an SQL question

regd. validation the delimiter(of flat file) is not present in databse..........

Hi Perlers Could you please tell me how to check a particular character is not present in the each element of array in one go ...I mean not going to eamine each and every element of the arraymeans by loop method. I dont want to use the for or while

XML::XPath query

Hello, Could someone help point out how to use scalar within Xpath query? I need to use $script in the query but it returns nothing. I am somewhat confused about the interpolation in this case. Thanks, Isarin use XML::XPath; my $xp = XML::XPath-new(filename = '/dssweb/prog/navi/links.xml');

Re: non-ascii characters?

On Oct 14, Charles Farinella said: Does anyone know how I can search for non-ascii characters in a text file? By non-ASCII, do you mean characters high-bit ASCII or Unicode? -- Jeff japhy Pinyan% How can we ever be the sold short or RPI Acacia Brother #734% the cheated, we who

Re: XML::XPath query

On Oct 14, H S said: Could someone help point out how to use scalar within Xpath query? I need to use $script in the query but it returns nothing. I am somewhat confused about the interpolation in this case. use XML::XPath; my $xp = XML::XPath-new(filename = '/dssweb/prog/navi/links.xml');

Re: non-ascii characters?

On Fri, 2005-10-14 at 15:34, Jeff 'japhy' Pinyan wrote: On Oct 14, Charles Farinella said: Does anyone know how I can search for non-ascii characters in a text file? By non-ASCII, do you mean characters high-bit ASCII or Unicode? h, I'm already in over my head. I'm trying to

Re: Re: using XS for calling exported methods from a DLL

- Original Message - From: Beau E. Cox [EMAIL PROTECTED] To: Bernard Kenik [EMAIL PROTECTED] Cc: Beginners Perl beginners@perl.org Sent: Friday, October 14, 2005 1:29 PM Subject: Re: Re: using XS for calling exported methods from a DLL Hi Bernard et. al. - At 2005-10-14, 07:01:39 you

How do I create async child process?

Is there a vendor neutral way to create an asynchronous child process in perl? I know the back quotes create a synchronous one but I want multiple asynch child processes. Thanks, Siegfried -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Repetead values

Rafael Morales wrote: Hi. Hello, My trouble is with a value duplicated value on a nested foreach, these are my variables: %names=( 1='NA' 2='NCW' 3='NE' 4='S' 5='SE' 6='SP' ); %hash{'2005-09-19'}{'1'}{'56'}=788;

remainder function

Hi, Is there a remainder function, since I need to check if a number is divisible by another? Thank you all. best, -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: remainder function

On Oct 15, 2005, at 0:02, ZHAO, BING wrote: Hi, Is there a remainder function, since I need to check if a number is divisible by another? Yes, the modulus operator: print $n is divisible by $m if $n % $m == 0; -- fxn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: I need help here

Sreedhar reddy wrote: Hi, Hello, I am very new to PERL and I need a program to do following task. Can u help me pls. I have a file with following contents. 454 NV_DS_DEFAULT_BAUDRATE_I 455 NV_DIAG_DEFAULT_BAUDRATE_I 516 NV_WCDMA_RX_LIN_VS_TEMP_I I am expecting out put like

Re: Thank you for your answer. And yesterday i was write from Nahid`s email address

Thankuyu very mush for your asnwer. So i will on monday write the question and will try what i want and what i need.

Re: Repetead values

Yes it works but I also need to print the files with values with '0', and your code just prints the files that have values different of '0', for example when I use your code I got this: 2005-09-19 - NA - 56 - 788 2005-09-19 - NA - 43 - 540 2005-09-19 - NE - 10 - 975 2005-09-19 - SP - 23 - 321

Writing a mail filter...

I am wanting to write a mail filter which will allow me to use a score sheet and a configuration file to filter mail into specific folders. This would be accomplished in conjunction with procmail, and possibly formail. The program would have to take the message and scan it for certain paterns,

add timer to program

Hello, My perl script requires to invoke external program, however this external program sometimes take forever to complete. The external program accessing /dev/ircomm0 and whenever the IR client was hang or out of range, this program try to search forever making the calling program seems

RE: I need help here

INPUT = fopen(filename); OUTPUT -- I opened another file here to write output These two lines r just to say how I'm proceeding... The err msg which I got is... Can't modify constant item in scalar assignment at test_script.pl line 1, near ); syntax error at test_script.pl line 13, near

RE: I need help here

Finally I finished this program like this... $inputfile= shift; $outputfile = shift; open(FILE1,$inputfile); @lines=FILE1; close(FILE1); open(FILE2,$outputfile); foreach $line (@lines) { if($line =~ m/(\d+) ([a-z,A-Z,_,0-9]+)/) /* to write

RE: I need help here

Sreedhar reddy mailto:[EMAIL PROTECTED] wrote: : Finally I finished this program like this... [snip] A working perl script should not be your only concern when just learning the language. It is equally, no, more important that you learn how to write your code well. Show us your entire

Re: Repetead values

Rafael Morales wrote: Yes it works but I also need to print the files with values with '0', and your code just prints the files that have values different of '0', for example when I use your code I got this: 2005-09-19 - NA - 56 - 788 2005-09-19 - NA - 43 - 540 2005-09-19 - NE - 10 - 975

Re: I need help here

Sreedhar reddy wrote: Finally I finished this program like this... You should have these two lines at the beginning of your program: use warnings; use strict; as they will help you find some mistakes and enforce better coding practices. $inputfile= shift; $outputfile = shift;