Perl Forum RSS Feed

Running Simple Perl Script

Fri, 20 Nov 2009 08:43:33 -0700

Hi all,
I am a rookie to the Perl World. I am running sun OS 5.8, and I (created) or vi a file named helloworld.pl under my home folder and gave it proper permission with the command chmod a+rx helloworld.pl:

-rwxr-xr-x 1 docalvi wanops 38 Nov 20 07:00 helloworld.pl

/opt1/home/docalvi

and in the file, i inserted the following text:

#!/usr/bin/perlprint "Hello World!n";

and I saved it as helloworld.pl

when I tried to execute the file ./helloworld.pl

I get the following error message:

./helloworld.pl: No such file or directory

What have I done wrong? Can someone answer the question? Thx much!

Running Simple Perl Script

Fri, 20 Nov 2009 08:41:50 -0700

Perl Script Help - Caraige return elimination

Thu, 05 Nov 2009 14:06:42 -0700

I have a file like below

BUFFALO||14-SEP-09
BUFFALO||20-O
CT-09

BUFFALO||31-JUL-09

Line #1 and Line # 5 are correct.
Line # 4 has jsut a carraige return and that needs to be removed.
Line # 2 the date field has been broken with a carraige return and it has splilled into Line # 3. They both have to be combined.

Can you please help me with a perl script/logic to fix these two issues.

Thank you.

Perl Script Help - Caraige return elimination

Thu, 05 Nov 2009 14:05:05 -0700

Regexp with replace

Mon, 02 Nov 2009 19:31:12 -0700

I'm trying to do a regexp with a replace.

I have the following regexp:
^(?s)(?:.*)(?:Resistance Z/F A-Pair TG\s*)(\w+)(?:.*)

On the following source examples.

Resistance Z/F A-Pair TG OR Kohms
Resistance Z/F A-Pair TG 1234 Kohms

The regexp currently returns the "OR" in example 1 and 1234 in exmplae 2, exactly what I wanted, however I need to change/replace the OR in example 1 to a zero (0).

Error on perl script

Thu, 29 Oct 2009 23:23:33 -0700

When creating a new object using an array for entity it fails.

my $entity = new MIME::Entity(\@message);

It gives following error while running the script.

"you cannot use body() to set the encoded contents
at Attachment1.pl line 18"

Call .NET asmx web service from PERL

Wed, 30 Sep 2009 15:57:49 -0700

Hello,

I am beginner for PERL CGI application.

I want to call ASP.NET (asmx) webservice from PERL
for which I downloaded SOAP : LITE.
I am not sure about setting up the SOAP LITE.

Can you walk me through step by step instruction
of installing SOAP LITE ?

Thanks

sale burberry Miu Miu prada Handbags,purse,bags

Wed, 30 Sep 2009 05:52:33 -0700

cheap AAA GUCCI handbags,( www.shoeshive.com )
cheap AAA Jimmy choo handbags,( www.shoeshive.com )
cheap AAA Chanel handbags,( www.shoeshive.com )
cheap Chanel handbags,( www.shoeshive.com )
cheap Coach Handbags ( www.shoeshive.com )
cheap Gucci Handbags ( www.shoeshive.com )
cheap Fendi Handbags ( www.shoeshive.com )
cheap Chloe Handbags ( www.shoeshive.com )
cheap Louis Vuitton Handbags ( www.shoeshive.com )
cheap Versace Handbags ( www.shoeshive.com )
cheap Hermes Handbags ( www.shoeshive.com )
cheap Juicy Couture Handbags ( www.shoeshive.com )
cheap Ed Hardy Handbags ( www.shoeshive.com )
wholesale Dior handbags,( www.shoeshive.com )
cheap Christian Audigier Handbags ( www.shoeshive.com )
cheap PRADA handbags,( www.shoeshive.com )
cheap db handbags,( www.shoeshive.com )
cheap Burberry handbags,( www.shoeshive.com )
cheap D&G handbags,( www.shoeshive.com )
cheap Miumiu handbags,( www.shoeshive.com )

All product top quality with right price, if you interested in our product, please contact us at:

Website: http://www.shoeshive.com
Mail : shoeshive@yahoo.com.cn
MSN: shoeshive@hotmail.com

sale burberry Miu Miu prada Handbags,purse,bags

Wed, 30 Sep 2009 05:51:08 -0700

Boss straps, Designer Style belts for wholesale -www.lowpriceon.com

Tue, 22 Sep 2009 11:26:22 -0700

Boss straps, Designer Style belts wholesale supplier best china supplier importers and exporters. Boss straps, Designer Style belts wholesale suppliers from China and around the world, Boss straps, Designer Style belts wholesale, Boss straps, Designer Style belts wholesale manufacturers,Boss straps, Designer Style belts wholesale factories, Boss straps, Designer Style belts wholesale Manufacturing, Boss straps, Designer Style belts wholesale Manufacturer, Factory, Company,Boss straps, Designer Style belts wholesale Exporters ,low price supply, cheap, sell,Companies, Boss straps, Designer Style belts wholesale Producers, Wholesalers, Distributors, Boss straps, Designer Style belts wholesale sell china Boss straps, Designer Style belts wholesale, Boss straps, Designer Style belts wholesale. www.lowpriceon.com

email: treelin312@hotmail.com

Bape straps, Christian Dior belts for wholesale -www.lowpriceon.com

Tue, 22 Sep 2009 11:24:37 -0700

Bape straps, Christian Dior belts wholesale supplier best china supplier importers and exporters. Bape straps, Christian Dior belts wholesale suppliers from China and around the world, Bape straps, Christian Dior belts wholesale, Bape straps, Christian Dior belts wholesale manufacturers,Bape straps, Christian Dior belts wholesale factories, Bape straps, Christian Dior belts wholesale Manufacturing, Bape straps, Christian Dior belts wholesale Manufacturer, Factory, Company,Bape straps, Christian Dior belts wholesale Exporters ,low price supply, cheap, sell,Companies, Bape straps, Christian Dior belts wholesale Producers, Wholesalers, Distributors, Bape straps, Christian Dior belts wholesale sell china Bape straps, Christian Dior belts wholesale, Bape straps, Christian Dior belts wholesale. www.lowpriceon.com

email: treelin312@hotmail.com

Bally straps, Christian Audigier belts for wholesale -lowpriceon.com

Tue, 22 Sep 2009 11:23:11 -0700

Bally straps, Christian Audigier belts wholesale supplier best china supplier importers and exporters. Bally straps, Christian Audigier belts wholesale suppliers from China and around the world, Bally straps, Christian Audigier belts wholesale, Bally straps, Christian Audigier belts wholesale manufacturers,Bally straps, Christian Audigier belts wholesale factories, Bally straps, Christian Audigier belts wholesale Manufacturing, Bally straps, Christian Audigier belts wholesale Manufacturer, Factory, Company,Bally straps, Christian Audigier belts wholesale Exporters ,low price supply, cheap, sell,Companies, Bally straps, Christian Audigier belts wholesale Producers, Wholesalers, Distributors, Bally straps, Christian Audigier belts wholesale sell china Bally straps, Christian Audigier belts wholesale, Bally straps, Christian Audigier belts wholesale. www.lowpriceon.com

email: treelin312@hotmail.com

Air Force One Shoe (www.sneakers2world.com)

Thu, 17 Sep 2009 10:27:58 -0700

Custom Nike Air Force 1 (www.sneakers2world.com)

Nike Air Force 1 Sneakers (www.sneakers2world.com)

Air Force One Shoe (www.sneakers2world.com)

(www.sneakers2world.com) Air Force Ones Online Shop

Airbrushed Air Force Ones (www.sneakers2world.com)

(WWW.Sneakers2World.COM) Wholesale Nike Air Force 1

Thu, 17 Sep 2009 10:26:21 -0700

(WWW.Sneakers2World.COM) Wholesale Nike Air Force 1, Nike Air Force 1 Low, Nike Air Force 1 One

(WWW.Sneakers2World.COM) Wholesale Air Force One 25 Anniversary sneakers, Nike Air Force One 25 th Sneakers

(www.sneakers2world.com ) Nike Air Force 1 for Sell, Nike Air Force 1 Low, Nike Air Force 1 Mid, Nike Air Force 1 exclusive,
Nike Air Force 1 special edition

(www.sneakers2world.com ) light up af1,air forces,air force ones Custom made Light Up Nike Air Force One

accept paypal jordan sneaker affliction hip hop clothing versace jeans

Mon, 14 Sep 2009 11:30:23 -0700

cheap versace urban T-Shirts ( http://( http://www.airjordanforsale.com)
cheap Michael Jackson Pop T-Shirts ( http://www.airjordanforsale.com)
cheap Puma sneakers, ( http://www.airjordanforsale.com)
cheap Hogan Shoes, ( http://www.airjordanforsale.com)
cheap Timberland Boots, ( http://www.airjordanforsale.com)
cheap Mauri Sneakers, ( http://www.airjordanforsale.com)
cheap Ed Hardy Shoes,( http://www.airjordanforsale.com)
cheap Coach Shoes, ( http://www.airjordanforsale.com)
cheap Dolce Gabbana Shoes, ( http://www.airjordanforsale.com)
cheap Fendi sneakers, ( http://www.airjordanforsale.com)
cheap Versace Shoes, ( http://www.airjordanforsale.com)
cheap Evisu Shoes,Armani Shoes,( http://www.airjordanforsale.com)
cheap Burberry Shoes,( http://www.airjordanforsale.com)
cheap Coogi Shoes,( http://www.airjordanforsale.com)
cheap Lacoste Trainers, ( http://www.airjordanforsale.com)
cheap Paciotti 4US sneakers,( http://www.airjordanforsale.com)
cheap Christian Audigier Shoes, ( http://www.airjordanforsale.com)
cheap Christian Dior Shoes,( http://www.airjordanforsale.com)
cheap Richmond Shoes,Converse Shoes...( http://www.airjordanforsale.com)
cheap cole haan shoes,chanel Boot( http://www.airjordanforsale.com )
cheap Supra Michael Jackson Thriller Sneaker wholesale
cheap Hollister Men's T Shirt ( http://www.airjordanforsale.com)
cheap Christian Audigier t-shirt,( http://www.airjordanforsale.com)
cheap hip hop Coogi t-shirt,( http://www.airjordanforsale.com)
cheap hip hop Ed hardy t-shirt( http://www.airjordanforsale.com)

NEW!! wholesale new style shoes Clothes jeans,t-shirts,handbag,sunglas

Sun, 13 Sep 2009 04:30:58 -0700

Cheap Nike Air Max 87,93,95 Shoes( www.sellstockshoes.com )

Fri, 11 Sep 2009 10:01:44 -0700

( www.sellstockshoes.com ) wholesale cheap Nike Dunk SB Sneakers Nike
Free trainers Nike Rift Australia UGG boot DSQUARED
Men's sneakers DOLCE&GABBANA Sneakers 4US mens shoes Gucci
sneakers,shoes Timberland Lacoste trainersPuma trainers Adidas
trainers prada sneakers Louis Vuitton shoes Bape Sta shoes
Christian Dior shoesArmani shoes Fendi shoes,boots Rocawear
shoes Hogan shoes Evisu shoes Burberry shoes Armani shoes Ice
Cream
shoes Nike Kobe Harache Chanel ( www.sellstockshoes.com )
310 Motoring Hurricane Ed hardy shoes Christian Audigier shoes Mauri
mens shoes Versace shoes Coach shoes Diesel Greedy genius shoes.

Re: Analysing text files to obtain statistics on their content Using P

Sun, 06 Sep 2009 06:49:01 -0700

Can anyone get this code to run?
Re: Analysing text files to obtain statistics on their content Using Perl

#!/usr/bin/perl

use strict;

use warnings;

my $filename= "";

if ($#ARGV == -1) #no filename provided as a command line argument.

{

print("Please Enter Filename: ");

$filename = <STDIN>;

chomp($filename);

}

else

{

$filename = $ARGV[0];

}

if ($filename !~ m/^[_a-zA-Z][^.]{1,7}\.TXT$/i)

{

die("File is not valid.\n");

}

if ($filename !~ m/\.TXT$/i)

{

$filename.=".TXT";

}

if (-e $filename)

{

die("File does not exist\n");

}

#check if filename is empty, exit if it is.

if (-s $filename)

{

die("File is empty\n");

}

open(READFILE, $filename) or die ("Can't open file $filename");

#then use a while loop and series of if statements similar to the following

while (<READFILE>) {

chomp; #removes the input record Separator

my $i = $.; #"$". is the input record line numbers, $i++ will also work

my $p++ if (m/^$/); #count paragraphs

my @t = split (/\s+/); #split sentences into "words" and store them in @t

my $words+= @t; # add count to $words

my $chars += tr/ //c; #tr/ //c replaces everything in the string with itself, except spaces, and returns the number of such characters replaced

#count all characters except spaces and add to $chars

}

my $sentences = 0;

my $i = 0;

my $p = 1;

my $words = 0;

my $chars = 0;

while(my $ch = getc(READFILE))

{

my $character_count;

chomp($ch);

if($ch eq "?" || $ch eq "," || $ch eq ".")

{

$sentences++;

}

}

my $word++;

if(my $ch =~ /[ \t]+/)

{

$chars++;

}

close(READFILE);

#display results

print("Sentences: $sentences\n");

print("Lines: $i lines\n");

print("Paragraphs: $p paragraphs\n");

print("Words: $words\n");

print("Characters: $chars\n");

COME ON! newwest Bbc Hoodies, Evisu Hoodies

Thu, 03 Sep 2009 01:57:41 -0700

brower sport shoes,apparel heaven: http://www.nikelrg.com
====Products List=====
01. Sports Shoes:Dunk shoes,puma shoes,james lebron shoes,adidas shoes,adidas good year shoes,adidas 35th,timberland shoes,bape shoes,prada shoes,D&G Shoes,gucci shoes ,kids shoes,Kobe shoes,boot shoes,LV shoes,converse shoes,chanel shoes

02:Hoodies:kidrobot hoody,athletic wear hoody,outer wear hoody,hoodies wear,Bape hoodies,Bbc Hoodies Evisu Hoodies,Ggg Hoodies,Lrg Hoody,Fashion Hoodies,Brand Name Hoodies

03:T-shirts:christian audigier t-shirt,googi t-shirt,ad t-shirt,lacoste t-shirt,burberry t-shirt,crown holder t-shirt,sinful t-shirt,affliction t-shirt,smet t-shirt,arful dodger t-shirt,diesel t-shirt,g-star t-shirt

04:Jackets:Bape Jackets,Bbc Jackets,A&F Jackets,Brand Name Jackets,Discount Jackets,Cheap Jackets,Wholesale Jackets,Adidas Jackets,Googi Jackets

05:Jeans:rock jeans,discount jean,designer jean,seven jeans,tight jeans,levi jeans,citizen jeans,gino green global jeans,diesel jeans,seven jeans,designer jeans,paul smith jeans,wholesale jeans,

06:handbags:designer handbags,chanel handbags,gucci handbags,prada handbags,juicy couture handbags,fendi handbags,miumiu handbags,cheap miumiu handbag,chanel wallets,replica handbags,wallets

07:mobile phones:nokia cellphone,popular phones,electronic products,touch screen, mini mobile phones,new mobile phones,latest mobile phones,cheap mobile phones,best mobile phones,wholesale phones nokia 8800,

08:Accessories:cartier sunglass,d&g sunglass,gucci sunglass,Brand Leather Belts,Gucci belts,Boss Belts,LV Belts,owboy hats,mens hats,baseball hats,party hats, hair straightener,ghd mk4,hair ghd mk4,hair iron

If you are interested in any of our products, or searching for a supplier to fill your order, please don't hesitate to contact us for more details. Any inquiries will be appreciated.
-->> http://www.nikelrg.com
www.nikelrg.com/blog/
MSN: shoesgod265@hotmail.com
YAHOO/Email: shoesgod265@yahoo.com.cn

How to convert MOD and TOD files generated by JVC camcorders?

Mon, 31 Aug 2009 02:09:53 -0700

How to convert MOD and TOD files generated by JVC camcorders?

As far as I know, JVC camcorder users are always troubled by MOD and TOD files that generated by their dear JVC, because the two formats usually can not be accepted directly by most video players or editors. If you want to enjoy these video files on your Local PC or portable devices, or even do some further editing with Movie Maker or other video editing software, you have to convert them to some other common formats previously. Video conversion seems troublesome, right? Do not be worried, this guide will lead you to break through it via Pavtube TOD Converter step by step.

Just follow it, now let’s start!

Step 1: Download, install and run Pavtube TOD Converter

Step 2: Import video files, select output format and specify store path
Add your recorded MOD or TOD files to this program, and select whatever formats you need from the drop-down list of “Format”. If you want to play on your cell phone, you can select 3GP; to play on iPod or iPhone, you can select MP4; to share online, you can select FLV. Meanwhile, press output folder to specify where to locate the output files, or you can use the store path set by default. Further more, suppose you need to join several files to be one, you can check “Merge into one file” to realize it.

Step 3: Set advanced settings:
You are allowed to do some advanced settings according to your own requirements. In this section, you are able to set parameters for output video, the bigger value, the better quality, but the larger size.

Step 4: Convert
Pavtube provides you a friendly interface while converting, and all the conversion info can be found out in the following window, like total progress, the time have spent, the file size have been generated, as well as the possible left time and the entire size probably produced during the conversion.

Additional tips:
About MOD and TOD:
Both MOD and TOD are the informal tapeless video formats produced by certain digital camcorders. And both of them have never been given to any meaning explanations or official names by their creators JVC or Panasonic. The differences between them lie in: MOD are used by JVC, Panasonic, and Canon in some models of camcorders, such as JVC GZ-MG130, GZ-MS100U, GZ-MG255, Panasonic SDR-SW20, SDR-SW21, SDR-S26, Canon FS100, FS200, FS21 and so on, while TOD is only used by JVC camcorders, like JVC GZ-HD7, GZ-HD5, GZ-HD6, GZ-HD30, and GZ-HD40; Moreover, MOD is only used for standard definition video files, while TOD is exclusively used for high definition video files.

cheap nike shox R3 R4 TN NZ OZ ( www.sellstockshoes.com )

Sun, 30 Aug 2009 13:47:54 -0700

cheap nike air max 5K SHOES ( www.sellstockshoes.com )
cheap Nike Shox Shoes R4 OZ TN, ( www.sellstockshoes.com )
cheap Air Force Ones ,( www.sellstockshoes.com )
CHEAP NIKE Dunk SB Shoes ,( www.sellstockshoes.com )
cheap air jordan 1-25 shoes, ( www.sellstockshoes.com )
cheap air jordan six Ring ( www.sellstockshoes.com )
cheap jordan Melo, M4 shoes,( www.sellstockshoes.com )
cheap jordan Olschool shoes,( www.sellstockshoes.com )
cheap jordan True Flight 45 shoes,( www.sellstockshoes.com )
cheap nike shox R3 R4 TN NZ OZ ( www.sellstockshoes.com )
cheap nike Shox Monster Shoes( www.sellstockshoes.com )
cheap nike air zeezy shoes,( www.sellstockshoes.com )
cheap nike air zenyth shoes ( www.sellstockshoes.com )
cheap nike Air Huarache Burst93 shoes ( www.sellstockshoes.com )
cheap nike max skyline Running sneakers.( www.sellstockshoes.com )
cheap jordan jumpman elite1 basketball shoes( www.sellstockshoes.com )
Jordan Jumpman Team Pro Basketball Shoes( www.sellstockshoes.com )
cheap nike all star basketball shoes ( www.sellstockshoes.com )
cheap Nike Air Max Free 5.0 Sneakers ( www.sellstockshoes.com )
cheap Jordan Chris Paul Shoes ( www.sellstockshoes.com )
Cheap Nike Shox Y93 R4 OZ Shoes ( www.sellstockshoes.com )

accept paypal bbc hoddy jordan shoes nike air max r3r4r5 polo t shirts

Fri, 28 Aug 2009 18:21:40 -0700

accept paypal jordan shoes just cavalli t shirts dolce gabbana cloting

Wed, 26 Aug 2009 20:54:39 -0700

Shuffling 'cards' (Changing the code)

Thu, 20 Aug 2009 01:55:52 -0700

I would be very grateful if someone could help me with this; to convert the following code using pop, shift, push; I'd like the script to sufficiently "shuffle" a simulated deck of cards before printing the top five cards.

#!/usr/bin/perl
$
$ cat shuffle.pl
#!/usr/bin/perl
$n = defined $ARGV[0] ? $ARGV[0] : 1;
@startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7 H","8 H",
                 "9 H","10 H","J H","Q H","K H",
                 "A D","2 D","3 D","4 D","5 D","6 D","7 D","8 D",
                 "9 D","10 D","J D","Q D","K D",
                 "A C","2 C","3 C","4 C","5 C","6 C","7 C","8 C",
                 "9 C","10 C","J C","Q C","K C",
                 "A S","2 S","3 S","4 S","5 S","6 S","7 S","8 S",
                 "9 S","10 S","J S","Q S","K S");
foreach $j (1..$n) {
  print "Top 5 cards for shuffle # $j\n";
  shuffle();
}
sub shuffle {
  foreach $i (1..5){
    printf("%d => %s\n",$i,$startingdeck[sprintf("%d",rand(51))]);
  }
}

Find it complicated creating the code with-out modules>_>(It's a HW assignment).

Thxz for any help!
~D~

Greatest number.

Thu, 20 Aug 2009 01:54:29 -0700

How would one go about finding the greatest number in an array of numbers [i]using loops and if statements[/i]? For example, if you had an array like this:

(4, 8, 3, 19, 6, 11)