[perl] Forum Topics

How do I modify the split function to consider the punctuations as words? He = 1 word. said = 1 word , = 1 word " = 1 word Well-done = 1 word . = 1 word " = 1 word Contents of the test file: He said, "Well-done." #!/usr/bin/perl …

Hi I am generating a summary of useraccounts present on around 160 linux servers. I am retrieving the data through a script and storing around 160 csv files in a directory. I want to import all these 160 csv files to one excel worksheet. Can someone please tell me how …

Dear Readers, 10 Years ago, Matt Hahnfeld (Everysoft.com) released the legendary EveryAuction Version 1.53 Perl Auction Script, the last Version of a serie of simple, but very popular source, still used worldwide in many different forms of applications. To honor this, I soon plan to release the new EveryAuction 2.53 …

Please help me!I want the code for doing following task in perl. Task is that "Read the paragraph from a file and print it in another file in ascending(total number of words in a sentence) order." My sample task: If the input "Hi! my name is Sarma. Can you help?" …

I have two files called 1.txt and 2.txt I want to just compare each line of 1.txt with all the lines in 2.txt. and if any of the line of 1.txt is not available in 2.txt those lines need to printed on console. It is ok even if 2.txt contains …

I have heard that strawberry perl has a built in compiler in it. I have no idea how to use it. Can someone help me to learn the syntax in command line compiling a per script. for example: print "Hello, World!";

i can cobble scripts together and whatnot, but my knowledge of cgi/perl is very limited. i have a simple guestbook script i have been using for years, and it suites me well... i have modified it some to allow people to check a box and add themselves to my mailing …

Hi, I have a text file that contains about 15000 lines like the lines below: IBN LG 00 0 00 05 304 602 1047 SB GWLPOT IBN LG 00 0 00 11 077 500 2547 SB GWLPOT IBN LG 00 0 00 19 077 574 2000 SB GWLPOT IBN LG …

This forum has been always a great help for me. I have a problem also this time and hope you can help me wth a solution. I have a few servers (svn, sql..) running remotely in various windows servers and sometimes it goes beyond notice that a particulr server stopped …

Hi all. I have a process that checks the last time a file was updated. If the data is over 3 minutes a separate perl script is started. The problem is that second script takes 5-10 seconds to run. Is there a way to start the second script, but continue …

Im trying to learn perl socket without the OO approach. My get request isnt working, im not sure why. Take a look? #!/usr/bin/perl use IO; use Socket; socket(SOCKFD,AF_INET,SOCK_STREAM,getprotobyname("tcp")) || die "Socket Error\n"; $host = gethostbyname("www.google.com"); $addr = sockaddr_in(80,$host); connect(SOCKFD,$addr) || die "Connect Error\n"; print SOCKFD "GET /"; while(<SOCKFD>){ print $_; …

Hello, I am currently trying to develope a perl CGI script that will allow a user to enter a name on an HTML form, and it will search the database with that name. Once it finds the matched names, it will display their name and telephone number on the screen. …

I am trying to figure out how to use fork() with exec(). I read through the perl docs on how it works, but I can't figure out how to implement it. For example if I wanted to fork a custom sh script: if (this_condition is true) { $mypid = fork(); …

Hello, I'm doing some word counts in Perl and have a problem with the following one. I want to use two subroutines count and show and do a word count on two lines of an array at the same time I've got two problems with it. 1) when using print …

Hello, I have a problem when trying to prompt users on two levels with Perl. The first prompt command works fine. But when doing the second command as below, I get Enter a command (count/close/quit) : Enter a command (open/quit). I don't see right away why this happens. Any idea? …

- I want to read two attached files a1.txt and a2.txt simultaneously. - I want to get output as mentioned in result.txt file. - Through my perl code I am able to read a single file. - Please help me to modify my code to get the desired output.

Hello. I am working on a Perl script that shoulld iterate through ~100 links from a MySQL table and test the links one at a time. I am using rtmpdump/mplayer to test the links (which are streaming videos), and I want to e-mail out a report after testing all the …

I need a perl script to extract the starting and ending positions of a column here is the input HETATM 7749 C1 NFG A1001 -31.772 -7.604 -23.847 0.80 61.71 C HETATM 7750 O1 NFG A1001 -30.806 -8.518 -23.305 0.80 65.42 O HETATM 7751 C2 NFG A1001 -32.987 -7.507 -22.895 0.80 …

I am reading a doc I found online about Perl, I am learning it for a project, and I was studying code that converts currency. The code: #!/usr/bin/perl use warnings; use strict; my ($number_to_convert, $first_currency, $second_currency, $rate, %rates); %rates = ( pounds => 1, dollars => 1.6, marks => 3.0, …

I have 2 file File1 1. amayaM 2. vismayaM 3. vismayaN File2 1. amayamAn 2. vismayamAn 3. vismayamer I need to check each character by character between 2 files and if the nonmatching character in first file is M then print the word in first file else no output. output …

How to split a paragraph into sentences using ".", "?", "!". and reverse those sentencen and finally join those splited sentences using thos relavent characters(".", "?", "!")? I can't do the last joining part, can anyone do this problem reply me.........

Help is needed. I've encountered errors as follows *Syntax error in file /home/common/bin/NEL_MailHouseKeeper.pl at line 3, next 2 tokens "my $PATH " Syntax error in file /home/common/bin/NEL_MailHouseKeeper.pl at line 122, next 2 tokens "my $FLAG_PRINT " Excution of /home/common/bin/NEL_MailHouseKeeper.pl aborted due to compilation errors.* #!/usr/contrib/bin/perl my $PATH = "/var/mail"; my …

[CODE] #!opt/local/bin/perl5 use strict; use Spreadsheet::ParseExcel; use XLSX.pm; my $oExcel = new Spreadsheet::ParseExcel; die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV; my $oBook = $oExcel->Parse($ARGV[0]); my($iR, $iC, $oWkS, $oWkC); print "FILE :", $oBook->{File} , "\n"; print "COUNT :", $oBook->{SheetCount} , "\n"; …

From the script below, the commented part of the script is to prevent the script from hanging. The script as is , is working once I uncomment the openning of the file to retieve the body of the email, the script hang. use Email::Send; use Email::Send::Gmail; use Email::Simple::Creator; # open …

when i copy and paste text from a webpage to a txt file and have perl open it, i get these strange boxes where there should be spaces. how do i use perl to replace them?

**Hi Team Daniweb,** Explain perlOOP concepts (basics and a bit advanced) with simple examples to understand what is OOP and how can we use this concepts in PERL. **Thanks!** Anil A Kumar

How do you padd textboxes in cgi. I have 2 colums of textboxes but would like to more spacing in column and rows. print $q->Tr( $q->td('Semester:'), $q->td( $q->checkbox_group( -name => 'semester', -values => ['Spring 2012', 'Summer 2012', 'Fall 2013 ', 'Spring 2013', 'Summer 2013', 'Fall 2013', 'Spring 2014', 'Summer 2014'], …

The string is about 3k long. It contains a substring several times with the following specification: 1. First part is FIXED number of characters. The same for all the substrings. 2. Second part is the one to be extracted and stored in an array.It is of variable length 3. Third …

Here is part of the html <body> <table> <tr> <td id="ctl00_ContentPlaceHolder1_TD_Unlimited_Usage_PerDay" class="form_label" colspan="2"> <table width='100%' cellspacing='2' cellpadding='0' border='0'> <tbody> <tr> <td align='center' bgcolor='#E1E1E1'>Date</td> <td align='center' bgcolor='#E1E1E1'>Download Usage</td> <td align='center' bgcolor='#E1E1E1'>Upload Usage</td> <td align='center' bgcolor='#E1E1E1'>Total Usage</td> </tr> <tr> <td class='table_item' align='center' bgcolor='#EBEBEB'>2012-11-02</td> <td class='table_item' align='center' bgcolor='#EBEBEB'>1.269 GB</td> <td class='table_item' align='center' bgcolor='#EBEBEB'>0.286 …

To start, it is NOT a hacking job. I want to access my USAGE report from my ISP. At the home page I have to select Account Management then login with my user name and pw from newly created prompt. One clicking login I get yet another prompt so I …