Perl Forum

Multiple records in rows Hi I have a partial solution working to show so many records in a row. How to make it work so only, say, 2 rows show - I don't know how to do. file.txt 01|Aaaa| 02|Bbbb| 03|Cccc|

what's going on? text entered into an HTML textarea input: field1=1 field2=2 field3=3 this data gets stored in a text file:

I have a multiselect dropdown which has 8 colors in a hash %all_colors: my %all_colors = ( 1 => 'Red', 2 => 'Yellow', 3 => 'Orange', 4 => 'Blue', 5 => 'Black', 6 => 'Brown', 7 => 'Green',

Hi, I have problem with my perl code execution.i have wrote my code & i got exected in the old version perl5.8.2.As i am tryiing to do the same in the version perl5.16.3 im getting an error like the below, Win32 does not define $Win32::VERSION--version check failed at *** line 435. BEGIN failed--compilation aborted. Compilation failed in...

Hello, I have a new project. I created a Excel file that calculate Solar Power requirement base on someone location and electric consumption. It works nicely. Now I want to make a HTML model inspired from this file. The Insolation information would be stored in a separate file. The user will have to provide me with it's city for the...

there is a lot of errors in this perl. what causes and how can i fix them #!/usr/bin/perl use strict; use File::Path qw(make_path); use LWP::UserAgent; use File::Temp qw(tempfile tempdir); use Compress::Zlib qw(uncompress);

#!/usr/bin/perl -w use strict; use warnings; use MIME::Lite; my $DirPath='filepath'; opendir (DIR, "$DirPath") or die "Cannot open $DirPath $!\n"; my $recent='find filepath -mtime -51 -type f';

Hi: I'm a novice regarding MySQL management with perl. I have read several online tutorials and managed so far to create a Table, insert a row, make some edits to specific items already saved in specific rows, display the last row entered, etc, in other words I feel I've done considerable progress. Now I'm converting an online auction...

Hello, I read on the web that the regular expression /o{2,3}/ means that it would match if o repeats at least 2 times but not more than 3 times. But when I tested this RE with "halloooo", it returned a match. I wonder if someone could please help me understand why it returned a match when there was 4 occurences of o? Thank you, Akino

i gave input file and output file.can u tell me script.

open(HNDL, "1.txt") or die "Cannot open text file"; while (<HNDL>) { if($.==2) { print $_; $_ =~ s/\s//g; print "after removing spaces $. :",$_; }

How to open vlc player using perl script Requirement:: open vlc player press (CTRL + "n") //It opens network stream enter url // In network stream page u have enter any url click play button in //network stream wait for 20 seconds close the vlc player

Hi all, I have Cygwin installed and running on Windows machine. I can connect to and send certain commands like "ls","pwd". But when I try to change the directory I am gettign an exception. Here is my code: use strict; use warnings; use Net::OpenSSH; my $host = 'host'; my $username = 'user';

I have two columns in my excel sheet one is for gene id and other for the length of the gene. now I need to find out the largest length of among various transcript id of the same geneid. and need to display the distinct geneid with largest length in perl language.

I have a long string from which I would like to separate words and the next numbers and store them in arrays if possible String = aa12ab123ac34ad23ae321ca21cb234za123zb12zd12 text usually is 2 characters long but the digits vary in length 2-4 digits I would like to store them as alpha=aa number=12 alpha=ab number=123

Hi all, I have a main script MAIN.pl I want to call all my five subscripts : SUBSCRIPT1.pl SUBSCRIPT2.pl SUBSCRIPT3.pl SUBSCRIPT4.pl SUBSCRIPT5.pl to may main script MAIN.pl . All this script will have a return value like true or false . depending on this input " if all the subscripts pass then we have to print pass to the...

When I running the following .cgi script, not sure why each print statement is not printing on a new line, even after entering \n. Browser=IE6 See Perl code below: #!C:/perl/bin/perl.exe -w print "Content-type:text/html\n\n"; use CGI qw(:standard);

my $data = $cell->value(); This is how I parse in perl and then get the cell value. if the cell value is a blank , I want to skip that cell and move further. but its not excuting once it finds a blank cell. please help

You can see the above two stings, that $string_2 contents are available in $string_1 but the only difference is tags (ie: <a> or <sup>). I want to match $string_2 in $string_1 and have to create/copy what are the tags inside in $string_1 matching area to the $string_2 contents. Kindly anybody give any idea to solve this Thanks Vimal

Hi, My access database is having a alsmost 20 tables inserted and each table having numerous columns. I want to fetch only certain columns from a table and then compare them using perl. I am able to compare the columns in excel but I dont want to export and compare I want to access the database only. Any ideas.

Hi, I'm new to perl. I want to compare two excel sheets the second excel file is just the revised version of the first one. There are only two columns each file with a certain number of Rows The following code is just printing all the values in it use strict; use warnings;

hi I am new to Perl and HTML . I have written a back end script in Perl using send expect statements, for loops and subroutines. In the Perl script i am logging in to the server and sending some commands and expecting server prompt and finally exit .Now i am trying to bring it to front end using HTML. I am using CGI as a framework to achieve...

i have shell file which will execute set commands to activate the mesh interface in my CRB board. in my perl file i tried to execute using system(location of file); but am not getting correct output but it is returning true... my code $mesh_base="/mnt/jffs2/conf/mesh_start"; system($mesh_base);

Hi All, I want to extract only meaningful information from below string . please help me out. String : .z.X.g 10.22.27.4 .....[.U.[ SLhJg7Se ...A120 .b...A.N.e.B.u...............^.C...A.E.g.........B

i dont want to use spreadsheet::parse module?i want to insert bulk data directly to mysql table in bulk