To write a script that reads numbers from STDIN and print onSTDOUT.

Hi Could any one write some coding for the problem. In perl against Linx could someone help. I want to write a script that reads in four numbers from STDIN and add the first two together, and than adds the second 2 together. The input format is a number on a line.(press enter after every nu

RE: To write a script that reads numbers from STDIN and printonSTDOUT.

Hi Stephen thanks a million, I cross referenced the program and clearly it make in deed sense. I have done the second part myself. ANYONE please assist and check whether the following code will work. The problem gets defined as follows. To write a script to read a name, and then the number

Perl regular expresions HELP!

Please explain to me what this code does, here I'm tying to rename files in current directory to 1.fil, 2.fil, ... foreach my $f ( @files ){ if( $f =~ /private/ ){ next; } chomp $f; $fil{$f} = 0; # if we match the extension... if( $f =~ /\.$extension$/ ){

RE: finding .jpg or any .extention file

= `ls -F`; my @jpegs; my $extension = "jpg"; foreach ( @files ){ next if /private/i; chomp; if(/\.$extension$/){ push(@jpegs, $_); } } foreach (@jpegs) { print "$_\n"; } HTH John -Original Message- From: Bruce A

Help can't figure this one out

I have written following coding to produce a triangle pattern(see below); I now want to produce following paterns I can't figer this out (a)(b) (c) (d) diamond ** * * * * * * * * *

Generating for loop paterns HELP!

Hi I have done (b) for coding see below, could someone assist with (a) (b) (d) #!/usr/local/bin/perl -w my $num_rows; my $i; my $r; $num_rows = ; for ($r = 1; $r <= $num_rows; $r++) { for ($i=1; $i<= $r; $i++) {print (" \n");} for ($i = $num_rows + 1 - $r;$i>=1; $i--){ pr

Generating for loop paterns HELP!

Hi I have done (b) for coding see below, could someone assist with (a) (b) (d) #!/usr/local/bin/perl -w my $num_rows; my $i; my $r; $num_rows = ; for ($r = 1; $r <= $num_rows; $r++) { for ($i=1; $i<= $r; $i++) {print (" \n");} for ($i = $num_rows + 1 - $r;$i>=1; $i--){ pr

Re: Generating for loop paterns HELP!

Hi Everyone had to crawl before they could walk, JON, stop being polite and help me I need your assistance now... Cheers Bruce >>> Jon Molin <[EMAIL PROTECTED]> 02/14/02 12:00PM >>> This smells homework! /jon Bruce Ambraal wrote: > > Hi > > I have

Printing data into a file every time some presses HELP!!

Hi Could someone help? the following code is not working. open(INPUT_FILE,"+>fixed.dat") || die "Could not open filename"; while () { print INPUT_FILE "bruce\n"; } close(INPUT_FILE); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Fwd: Printing data into a file every time some pressesHELP!!

Hi Where's every one? Or maybe our my server's down. Help! Cheers --- Begin Message --- Hi Could someone help? the following code is not working. open(INPUT_FILE,"+>fixed.dat") || die "Could not open filename"; while () { print INPUT_FILE "bruce\n"; } close(INPUT_FILE); -- To unsubscr

Re: Printing data into a file every time some presses

Hi Zentara I haven't forgotten..., thanks so much for your assistance. Appreiciation. thanks again Cheers :) Bruce -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

What is the value of @_4_[0], and $return_me? (see below)

Hi 1. (see subject) 2. Explain lines 3 , 4 3.Why does'nt this coding return anything2 sub routine { my @arr = (0, 'a' 1, 'b'); @_ = @arr; my $retun_me = shift; return( $return_me ) }; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Fwd: What is the value of @_4_[0], and $return_me? (see below)

OOPs! I meant Fwd: What is the value of @_$_[0], and $return_me? (see below) --- Begin Message --- Hi 1. (see subject) 2. Explain lines 3 , 4 3.Why does'nt this coding return anything2 sub routine { my @arr = (0, 'a' 1, 'b'); @_ = @arr; my $retun_me = shift; return( $return_me ) }; -- To

Taking entire Oracle application (forms, reports) to WEB usingCGI?

Hi All How possible is this.? This a good Idea? I am currently defining a 6 month project deploying our current Oracle financial system to the WEB using CGI. Can anyone point out current success stories, that really works. Cheers bruce -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

Adding the input file digits together

Hi I am want to add digits in In_digits together. Print total to screen. Could someone help? Thanx Bruce In_digits: 1,200 2,400 #!/usr/bin/perl -w open(INPUT, "In_digits") || die; open(OUTPUT, ">Out_digits") || die; while () { if (/(\d{1})(\,)(\d{3})/) { print OUT

Adding the input file digits together (Come on guys)

Hi I am want to add digits in In_digits together. Print total to screen. Could someone help? Thanx Bruce In_digits: 1,200 2,400 #!/usr/bin/perl -w open(INPUT, "In_digits") || die; open(OUTPUT, ">Out_digits") || die; while () { if (/(\d{1})(\,)(\d{3})/) { print OUT

Script extracting the output from a search engine - Help!

In the script below I am trying to to extract the results from performing a search on the word "help" at http://srch.overture.com Running the script produce lots of errors. What am I doing wrong, is my rules correct. Help #!/usr/bin/perl - strict open(A_file,""); my@ary = ; while($n <

A script to understand the output from a search engine HELP!!

Hi all, Part I If you get the script below to work then it needs to be modified: I have pulled the seach.html file as follows: I went to link http://srch.overture.com) then search for word "help", then I save the result as file named search.html Then I wrote the script below to extract and find

The LinkExtor.pm module

Hi friends I call you all friend because I am very impress with the way in which you are guiding me. Indeed I want to locate the LinkExtor.pm module. Cheers Bruce -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

The LinkExtor.pm module (Wow! its very quiet in here) Anybodyout there!!!

Hi friends I call you all friend because I am very impress with the way in which you are guiding me. Indeed I want to locate the LinkExtor.pm module. Cheers Bruce -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail:

Creating table for message board server tosave/delete/update messages

Hi All I need some one to comment on the program below With the code below I am trying to design a table that allows a simple message board server to: 1) Save a message, 2) delete a message, 3) update a message The password + username must be saved in the same table entry, and compare it when

Opens / create file if necessary

Could you help My code's not doing everything With the code below I'm trying to do the following: -Open a file, creating it if necessary -Print a name in file every time someone presses "enter" -Print a new line -Seek to the begining of file without closing file -and print the file to STDOU

Split input on whitespaces - Another approach

Hi all My code below does the following : - Reads from STDIN - Splits the input on whitespace - And prints the frequency of terms, with each term printed next to its frequency on STDOUT. I need another approach (code) to do the same things #!/usr/bin/perl -w my %freq; while( my $line = ){

Fwd: Read in from STDIN

Could anyone help I am having trouble reading in information from STDIN For coding see attached file Using a while loop I want to do the following: Read info in from STDIN Read in any number of name/value pairs, Read in names in pairs of two, and compute their sum. Choose the maximum of all thos

Split input on whitespaces - Another approach - Co m e o n g u y s

Hi all My code below does the following : - Reads from STDIN - Splits the input on whitespace - And prints the frequency of terms, with each term printed next to its frequency on STDOUT. I need another approach (code) to do the same things #!/usr/bin/perl -w my %freq; while( my $line = ){

Read from STDIN

Anyone's free to assist Part 1 is already done just need assistance for part (2-4) See below provided test data aswell 1)Read in any number of name/value pairs, 2)Read in names in pairs of two, and compute their sum. 3)Choose the maximum of all those pairs and print it. 4)At the same time ch

Re: Read from STDIN

Thanx boris problem completely solved. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Split input on whitespace

Why does my code not write the splitted words to STDOUT? #!/usr/bin/perl -w open (OUTPUT, ">ex92.out")||die; my %freq; while (my $line = ) { foreach my $w ( split( /\s+/, $line ) ){ if( exists $freq{$w} ){ $freq{$w}++; }else{ $freq{$w} = 1;

Thanks alot Boris

Hi Boris I see you are still around. Well I just want to take the oportunity in thanking you for all the help that you have given me I really appreciate it. Go well. Psst! Boris is the man of the hour with more power. Cheers Bruce -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additiona

Re: To upload file from client to Appache server (WNNT)

Check out the errors I am getting when I run the bruce.html on my Appache (Apache/1.3.26 Server at 165.25.207.246 Port 80) my Perl have been install in dir c:/program files/perl/bin. When I view any Perl program via the web then I get the same errors. What am I doing wrong. Please help err

RE: A CGI Script to run none Perl/CGI program

Hi David, Thanks a lot!! The code worked..., seems you know everything about perl, just like my friend boris. Cheers Bruce

Sendback programs output as Perl/CGI

Hi all,   Could anyone assist with the following: Let me explain when running  exe below on your c: drive the program, pulls the two input text file and produce two outputfile. In addition the program the program display a screen output.   My request: 1) I want for this screen output to be se

Sendback programs output as Perl/CGI

Hi all,   Could anyone assist with the following: Let me explain when running  exe below on your c: drive the program, pulls the two input text file and produce two outputfile. In addition the program the program display a screen output.   My request: 1) I want for this screen output to be se

Looking for the Sendmail.pm for Appache ver 1.3

Hi all, Could any one send of tell where I could find this Module. thanks in advance. Bruce

Problem installing ACTIVEPERL sendmail.pm from PPM

Hi all,   Could some help, see the attached error when attempting to instal sendmail.pm from PPM PPM> install mail-sendmail Install package 'mail-sendmail?' (y/N): y Installing package 'mail-sendmail'... Error installing package 'mail-sendmail': Could not locate a PPD file for packag e mail-se

mail::Sendmail::error

Hi all   what am I doing wrong. find attach the error.log and the code   thanx in advance Bruce start_n2.pl Description: Binary data errors1.log Description: Binary data -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

mail::Sendmail::error

Hi all What am I doing wrong. error.log; [Tue Oct 01 11:09:10 2002] [error] [client 165.25.207.246] [Tue Oct 1 11:09:09 2002] c:\PROGRA~1\APACHE~1\apache\cgi-bin\start_n2.pl: Name "mail::Sendmail::error" used only once: possible typo at c:\PROGRA~1\APACHE~1\apache\cgi-bin\start_n2.pl line 26.