Perl Forum RSS Feed (Replies Included)

I need to extract unique words from a text file

Wed, 12 Jun 2013 23:59:08 -0700

Hello programmers,

I need to create a list of unique words from a text file using PERL...may i have the code for that please?

Thank you

I need to extract unique words from a text file

Wed, 12 Jun 2013 23:53:26 -0700

Hello programmers,

I need to create a list of unique words from a text file using PERL...may i have the code for that please?

Thank you

Search and copy the line

Wed, 05 Jun 2013 21:50:13 -0700

Hi ,

I am trying to search a particular keyword in a file which contains some 10 lines. If the key word is found i want to cut that entire line and paste the same at the end of the file. Can anyone help me please ?

PERL.........

Mon, 03 Jun 2013 04:29:04 -0700

I have to merge 2 columns (separated by tab) into a single column, save as 1D array, remove duplicates and sort in ascending order...
How can I do it in PERL.........???

Re: HTML to PDF automatic conversion

Tue, 07 May 2013 20:14:34 -0700

my friend once mentioned this image converter, and i look it up in its site and found it can do html to pdf conversion, if you haven't found a good way to do that, you can have a try. good luck.

Re: HTML to PDF automatic conversion

Tue, 07 May 2013 20:09:26 -0700

my friend once mentioned this image converter, and i look it up in its site and found it can do html to pdf conversion, if you haven't found a good way to do that, you can have a try. good luck.

Re: HTML to PDF automatic conversion

Tue, 07 May 2013 20:06:26 -0700

my friend once mentioned this image converter, and i look it up in its site and found it can do html to pdf conversion, if you haven't found a good way to do that, you can have a try. good luck.

Need a Help...

Thu, 11 Apr 2013 15:22:04 -0700

Hello Guys,

I am new in Perl Programming. I want to design my Personal Control Panel for my web sites. Let me know Perl is good for it or not? and If yes, then which module we need to install on the server. Please give me suggestion.

Thanks and Regards,

WHDashboard

Transcode Sony XDCAM EX MP4 to ProRes 422 for Final Cut Pro 7/X

Mon, 08 Apr 2013 02:14:51 -0700

Summary: Follow the guide below and you will know how to import Sony XDCAM EX MP4 to Final Cut Pro 7/X without rendering or any other problems on Mac OS X(Mountain Lion included).

Sony XDCAM EX camcorders like PMW-EX3, PMW-200, PMW-EX1, PMW 150, etc are great for us to take high quality full HD videos. If you have got one and often use it to record 1080p video, you may have the need to edit the generated XDCAM EX MP4 files in Final Cut Pro on Mac. While, it’s a common sense that FCP cannot natively support the raw XDCAM MP4 video, the best supported video format for FCP is Apple ProRes 422.

The best method to solve this problem is to convert Sony XDCAM EX MP4 to ProResfor for editing in Final Cut Pro 6/7 and FCP X. You can follow the steps below to complete your task. First of all, get Brorsoft Video Converter for Mac. It will help you convert Sony XDCAM .mp4 files to ProRes for FCP on Mac at fast speed without quality loss and more import and output formats are also supported.

[How-To] Transfer the raw Sony XDCAM EX footage in MP4 to Final Cut Pro

1. Download, Install and launch this XDCAM EX to ProRes Converter. Then, import Sony XDCAM EX MP4 footages to the converter.

2. Click format bar to choose the output format. Click and choose Final Cut Pro -> Apple ProRes 422 (*.mov).

3. You can click "settings" to customize the output parameters, adjust the resolution, bitrate as you want.

4. Click convert button to start transcoding Sony XDCAM EX MP4 to ProRes for FCP on Mac.

After conversion, you can import Sony XDCAM EX video files into Final Cut Pro without any trouble.

Find the Source:
http://www.brorsoft.com/how-to/import-mxf-from-sony-xdcam-xdcam-hd-xdcam-ex-to-fcp-mac.html
or open here:
http://lydia622520.soup.io/post/307436671/How-to-Import-and-Edit-Sony-XDCAM

product here:
http://www.brorsoft.com/video-converter-mac/index.html
http://www.brorsoft.com/video-converter/index.html

Transcode Sony XDCAM EX MP4 to ProRes 422 for Final Cut Pro 7/X

Mon, 08 Apr 2013 02:11:06 -0700

HTML to PDF conversion

Thu, 28 Mar 2013 00:32:40 -0700

Yep, there are such html to pdf conversion application, and i've been using such pdf converter for a long time. but im not sure about"automatic conversion"?

HTML to PDF conversion

Thu, 28 Mar 2013 00:27:21 -0700

Yep, there are such html to pdf conversion application, and i've been using such pdf converter for a long time. but im not sure about"automatic conversion"?

HTML to PDF conversion

Thu, 28 Mar 2013 00:21:58 -0700

Yep, there are such html to pdf conversion application, and i've been using such pdf converter for a long time. but im not sure about"automatic conversion"?

Re: HTML to PDF automatic conversion

Thu, 28 Mar 2013 00:15:04 -0700

Yep, there are such html to pdf conversion application, and i've been using such pdf converter for a long time. but im not sure about"automatic conversion"?

Re: HTML to PDF automatic conversion

Thu, 28 Mar 2013 00:08:09 -0700

Yep, there are such html to pdf conversion program, and i've been using such pdf converter for a long time, but im not understand the "automatic conversion".

Re: How to calculate the largest directory excluded subdirectories?

Mon, 25 Mar 2013 23:14:39 -0700

<a href="http://www.sweetywedding.com/bridesmaid-dresses/silhouette/mermaid-trumpet.html">Elegant Mermaid/Trumpet Bridesmaid Dresses</a>

Re: How to calculate the largest directory excluded subdirectories?

Mon, 25 Mar 2013 23:12:47 -0700

<a href="http://www.sweetywedding.com/bridesmaid-dresses/silhouette/mermaid-trumpet.html">Elegant Mermaid/Trumpet Bridesmaid Dresses</a>

Convert/Import Sony NEX-EA50EH to FCP 7 Mac

Wed, 16 Jan 2013 01:21:42 -0700

Summary: Follow the guide below and you will know how to import Sony NEX-EA50EH AVCHD to Final Cut Pro 7/X without rendering on Mac.

Key features of Sony NEX-EA50EH:
Full HD recording
Large Format Sensor for creative expression
Unique design for versatile shooting options
Interchangeable E-mount lens SystemNewly developed powered zoom lens
Part of the professional NXCAM camcorder range
16.1 megapixel still image captureA variety of recording media options
Video is recorded up to 60fps at 1080P in AVCHD 2.0
http://www.brorsoft.com/images/how-to/mts-m2ts/sony-nex-ea50-avchd-to-fcp.gif[/img]
I've been importing some 24fps AVCHD footage into FCP 7 with no problem using the prescribed method (copying the entire contents of a card and then selecting "import from camera"), but when I do the same thing with Sony NEX-EA50EH 60fps AVCHD footage, I get error messages. So how to solve this kind of problem. Here I recommend the best [url=http://www.brorsoft.com/mts-converter-mac/index.html]Converter for Sony NEX-EA50EH AVCHD to FCP 7[/url] on Mac OS X.

For [url=http://www.brorsoft.com/how-to/transcode-sony-nex-ea50-avchd-to-fcp.html]making Sony NEX-EA50EH 1080p AVCHD footages editable in FCP 7 easily[/url], you need to find the outstanding AVCHD converter to install on your Mac OS X.

http://www.brorsoft.com/images/how-to/mts-m2ts/steps-sony-nex-ea50-avchd-to-fcp.gif[/img]

Step 1: Launch the [url=http://www.brorsoft.com/mts-converter-mac/index.html]AVCHD to FCP Converter for Mac[/url] after the installation, and then load your .mts or .m2ts files to it to converting.
Tips:
1. If you want, you can merge several AVCHD clips by ticking “Merge into one” box.
2. Pls do not imput so many cilps to the software one time in that the software needs more space to run while converting. If the imputed file is 1GB, then memory space should be up to 40GB.

Step 2: Click "Format" bar to choose the output format. Click and choose "Final Cut Pro-Apple ProRes 422(*.mov)" as the best output format for FCP.

Tip: FCP 6 or ealier version only can support ProRes 422 or ProRes 422(HQ). FCP 7 or above can support Pro Res 422(LT), Pro Res 444Pro and Res 422(Proxy).

Step 3: Tap "settings" icon to customize the output parameters, adjust the resolution, bitrate as you want. Set video size as 1920*1080.
Tip: Sony NEX-EA50EH is a professional camcorder that must have two version, NTSC or PAL. For NTSC users, frame rate 30fps is the best choice for them, while for PAL users 25fps is the best for them.

Step 4: Click convert button and start to [url=http://hdcamcorderconverttips.altervista.org/blog/so ny-nex-ea50ehavchd-compatability-issues-with-final-cut-pro-7x/]convert Sony NEX-EA50EH 60p AVCHD to FCP[/url] compatible ProRes .mov on Mac OS X.

Tip:
If you have 1080p MP4, MOV , MTS/M2TS recordings from any camcorder and met the same importing or editing issues no matter with FCP, FCE, iMovie or Avid Media Composer, you also can download a trial version of [url=http://www.brorsoft.com/video-converter-mac/index.html]Sony NEX-EA50EH Video Converter for Mac[/url] to make them compatible for these editors.

Related guides:
[url=http://www.brorsoft.com/how-to/edit-dsc-hx30v-avchd-fcp7.html]Edit Sony DSC-HX30V 1080p AVCHD Files in FCP 7 on Mac[/url]
[url=http://www.brorsoft.com/how-to/solution-to-editing-sony-hdr-xr260v-avchd-in-imovie-mac.html]Easy solution to editing Sony HDR-XR260V AVCHD in iMovie on Mac[/url]
[url=http://www.brorsoft.com/how-to/edit-sony-hdr-xr350v-avchd-in-imovie.html]Edit Sony HDR-XR350V AVCHD in iMovie & Export to iDVD for burning[/url]
[url=http://movies-videos-convert-tips.overblog.com/avchd-2-0-to-avid-mc-transcode-convert-sony-a77-1080p-avchd-to-dnxhd-for-editing-in-avid-media-composer]Converting Sony A77 AVCHD to DNxHD For Avid MC[/url]
[url=http://lydia622520.soup.io/post/296174208/Watch-and-Play-1080p-MTS-clips-on]Watch and Play 1080p MTS clips on Galaxy Note 2[/url]

Convert/Import Sony NEX-EA50EH to FCP 7 Mac

Wed, 16 Jan 2013 01:19:50 -0700

please help SNMP dynamic configuration using perl

Wed, 26 Dec 2012 07:10:54 -0700

Hi there I new to perl and SNMP....I need to write a trap handler in Perl that handle traps in SNMP environment such as link up/down and also it must do some configuration as a respond/correct to what happen,in my case I look for linkdown status and it should turn the alternative port up,that's all
so fa r I got the:
1- snmptrapd.conf file

authCommunity log,execute,net public
ignoreauthfailure no
format1 %#02.2h:%#02.2j TRAP%w.%q (%W) from %A Event:%v\n
traphandle "{abc}" eq "IF-MIB::LinkUp" || "{def}" eq "IF-MIB::LinkDown" | perl.exe traph.pl

2-traph.pl file

my $TRAP_FILE = "traps.all.log";
print "Executing Trap Handler...";

my $host = <STDIN>; # Read the Hostname - First line of input from STDIN
my $ip = <STDIN>; # Read the IP - Second line of input

my $result = index($ip,"127.0.0.1");

if ($result==-1) {
while(<STDIN>) {
push(@vars,$_);
}

open(TRAPFILE, ">> $TRAP_FILE");
print(TRAPFILE "New trap received: $OID\n\nHOST: $host\nIP: $ip\n");
foreach(@vars) {
print(TRAPFILE "TRAP: $_\n");
}
print(TRAPFILE "\n----------\n");
close(TRAPFILE);
}
print "finished.\n";

but I don't know how to write the piece of script that will do the configuration changes from linkdown to linkup...

can somebody help please...

please help SNMP dynamic configuration using perl

Wed, 26 Dec 2012 07:06:48 -0700

Getting two columns that begin with the same letter

Tue, 18 Dec 2012 09:04:51 -0700

Hello all !

I have a file that has a list of plant genes and it looks like this:
01-0223: Os05g0168800 Sb09g005020 0.650 speciation
01-0224: Os01g0168200 Os05g0169000 1.083 WGD
01-0224: Os05g0169000 Sb09g005030 0.670 speciation
01-0225: Os01g0168300 Sb03g004660 0.522 speciation

I want to get the lines where column 2 and column 3 both begin with "O" and to ignore the lines where either column 1 or 2 begins with an "S"

I have tried this

use warnings;

open (FILE, "genes.txt");
while ( $line = <FILE>) {
chomp $line;
if ( [2,3] =~ "^O") {
print $line ;}
}
exit;

but it doesn't work.
Any ideas? Thanks !

Getting two columns that begin with the same letter

Tue, 18 Dec 2012 09:03:00 -0700

Help with perl irc game please

Tue, 18 Dec 2012 05:25:27 -0700

Hi,

Can you please help me with my perl irc game, when someone types !present in a channel on irc, it should give a user a present, but instead of doing that it says " stop hogging all the best pitches " How can I fix it so it gives the user a present please ?

#!/usr/bin/perl
#
# Flashy's bloodsports. http://digdilem.org/ - "Because thems trouts ain't gonna catch themselves!"
# (Credit to the original Eggdrop TCL script by Nerfbendr)
#
# Adds silly !hunt, !fish and !trophy and !present public triggers
# Also !newmonth will clean out the trophy cupboard. (Only if you do it, or the nick in $owner_nick)
#
# Optional Configuration (Will work fine without changing these, but you can if you like)
my $owner_nick='rainbowwarrior'; # Your nick - you can only reset the scores remotely if you use this nick.
my $scale = 'kg'; # Say here whether you want to measure weights in lb or kg.
my $catch_percent=90; # How often you catch or shoot something.
my $trophy_cabinet = Xchat::get_info( 'xchatdir' ) . "\\trophies.txt"; # File to keep the trophies in.
# End user configuration
use strict;
Xchat::register( "rainbowwarrrior's Huntin' 'n Fishin' and present unwrapping", 'v.004', "Hunting", "" );
Xchat::hook_print('Channel Message', "hunting");
Xchat::hook_print('Your Message', "hunting");
Xchat::hook_print('Private Message', "hunting");
Xchat::hook_print('Private Message to Dialog', "hunting");
my $bigfish=0,my $fishman='Nobody',my $bighunt=0,my $huntman='Nobody',my $bigpresent=0,my $presenthunt='Nobody',my $present_unwrapper;
my $fishtype='Trout',my $fishplace='Pool';
my $hunttype='bear', my $huntplace='Bushes';
my $presenttype='present', my $presentplaces='xmas';
my $last_hunter;
my $last_fisher;
my $last_presenthunter;
my @hunts = ( "bear","gopher","rabbit","hunter","deer","fox","du
ck","moose","pokemon named Pikachu","park ranger","Yogi Bear","Boo Boo Bear","dog named Benji","cow","raccoon","koala bear","camper","channel lamer");
my @fish = ( "Salmon","Herring","Yellowfin Tuna","Pink Salmon","Chub","Barbel","Perch","Northern Pike","Brown Trout","Arctic Char","Roach","Brayling","Bleak","Cat Fish","Sun Fish","Old Tire","Rusty Tin Can","Genie Lamp","Love Message In A Bottle","Old Log","Rubber Boot","Dead Body","Loch Ness Monster","Old Fishing Lure","Piece of the Titanic","Chunk of Atlantis","Squid","Whale","Dolphin","Porpoise","St
ingray","Submarine","Seal","Seahorse","Jellyfish",
"Starfish","Electric Eel","Great White Shark","Scuba Diver","X","Lag Monster","Virus","Soggy Pack of Smokes","Pile of Weed","Boat Anchor","Pair Of Floaties","Mermaid","Merman","Halibut","Tiddler","
Sock","Trout");
my @presents = ( "a new car","cake","guitar","dvd","xbox360","playstation3
","hairdryer","trampoline","dog","cat","electric shock game","a board game","a snake","tickets to a rock concert","a blowup doll","book");
my @huntplaces = ("in some bushes","in a hunting blind","in a hole","up in a tree","in a hiding place","out in the open","in the middle of a field","downtown","on a street corner","at the local mall");
my @fishplaces = ("Stream","Lake","River","Pond","Ocean","Bathtub",
"Kiddie's Swimming Pool","Toilet","Pile of Vomit","Pool of Urine","Kitchen Sink","Bathroom Sink","Mud Puddle","Pail of Water","Bowl of Jell-O (tm)","Wash Basin","Rain Barrel","Aquarium","SnowBank","WaterFall","Cup of Coffee","Glass of Milk");
my @presentplaces = ("in a cupboard","under a xmas tree","in the liverroom","up in a tree","in a hiding place","out in the open","upstairs","on a boat","on a street corner","at the local mall");



Xchat::print("Path=($trophy_cabinet");

if (open (DH,"<$trophy_cabinet>")) {
	($bigfish,$fishman,$fishtype,$fishplace) = split(/\|/,<DH>);
	chomp($fishplace);
	($bighunt,$huntman,$hunttype,$huntplace) = split(/\|/,<DH>);
        my ($bigpresent,$presenthunt,$presenttype,$present_un
wrapper,$presentplaces) = split(/\|/,<DH>);
	close (DH);
	Xchat::print("Peered in the trophy cabinet: ($bigfish$scale $fishtype by $fishman) ($bighunt$scale $hunttype by $huntman) ($bigpresent$scale $presenttype by $present_unwrapper");
	} else { 
	Xchat::print("\002Woo, looks like we've not gone hunting before. Let's make a trophy cabinet...");
	save_trophy();
	}
	
Xchat::print("\002Loaded Flash's Huntin' 'n Fishin'\002 (!hunt, !fish !present !trophy - Current records are $bigfish$scale and $bighunt$scale)");

sub hunting {
	my @pubwords = split(/ /,$_[0][1]);
	my $hunter = Xchat::strip_code($_[0][0]);
	my $channel = Xchat::get_info('channel');
	if (lc($pubwords[0]) eq '!hunt') {
		if ($hunter eq $last_hunter) { 
			Xchat::command("say Stop hogging all the best pitches $hunter, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			$last_hunter = $hunter; 
			}
		my $huntplace = @huntplaces[rand(scalar @huntplaces)];
		my $hunt = @hunts[rand(scalar @hunts)];
		my $weight = 1+int(rand($bighunt+10));
		Xchat::command("msg $hunter You hide $huntplace and wait for something to wander by...");
		Xchat::command("msg $hunter .");
		Xchat::command("msg $hunter ..");
		Xchat::command("msg $hunter ...");
		Xchat::command("msg $hunter You think you hear something and fire wildly in that direction!");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $hunter Congratulations, $hunter! You just bagged yourself a $weight$scale $hunt!");
			Xchat::command("msg $channel $hunter just bagged a $weight$scale $hunt.");
			if ($weight > $bighunt) {
				Xchat::command("msg $hunter Wow!!! That's a new record! Way to go, $hunter! Type !trophy to see it!");
				Xchat::command("msg $channel Wow! That breaks the old record of a $bighunt$scale $hunttype! $hunter is amazing!");
				$bighunt=$weight;
				$huntman=$hunter;
				$hunttype=$hunt;
				save_trophy();
				}
		} else {
			Xchat::command("msg $hunter Rats...you missed it, $hunter! Better luck next time!");
			Xchat::command("msg $channel $hunter is useless, they missed by a mile!");
			}
		}	
	if (lc($pubwords[0]) eq '!fish') {
		$fishplace = @fishplaces[rand(scalar @fishplaces)];
		my $fishy = @fish[rand(scalar @fish)];
		my $weight = 1+int(rand($bigfish+10));
		if ($hunter eq $last_fisher) { 
			Xchat::command("say Stop hogging all the best pitches $hunter, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			$last_fisher = $hunter; 
			}
		Xchat::command("msg $hunter You cast your line into a $fishplace and wait for a bite...");
		Xchat::command("msg $hunter .");
		Xchat::command("msg $hunter ..");
		Xchat::command("msg $hunter ...");
		Xchat::command("msg $hunter You feel a tug on your line and reel it in...");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $hunter Congratulations, $hunter! You just caught yourself a $weight$scale $fishy!");
			Xchat::command("msg $channel $hunter just caught a $weight$scale $fishy");
			if ($weight > $bigfish) {
				Xchat::command("msg $hunter Wow!!! That's a new record! Way to go, $hunter! Type !trophy to see it!");
				Xchat::command("msg $channel Brilliant! That breaks the old record of a $bigfish$scale $fishtype! $hunter is the world's best!");
				$fishman=$hunter;
				$bigfish=$weight;
				$fishtype=$fishy;
				save_trophy();
				}
		} else {
			Xchat::command("msg $hunter Rats...it got away, $hunter! Better luck next time!");
			Xchat::command("msg $channel $hunter is useless, they failed to catch anything!");
			}
		}
	if (lc($pubwords[0]) eq '!trophy') {
		Xchat::command("say $fishman holds the fishing record when they caught a $bigfish$scale $fishtype");
		Xchat::command("say $huntman holds the hunting record when they bagged a $bighunt$scale $hunttype");
                Xchat::command("say $presenthunt holds the present unwrapping record when they unwrapped a $bigpresent$scale $presenttype");
		}
if (lc($pubwords[0]) eq '!present') {
		my $presentplaces = @presentplaces[rand(scalar @presentplaces)];
		my $present = $presents[int rand @presents]; 
		my $weight = 1+int(rand($present+10));
		if ($present_unwrapper eq $last_presenthunter) { 
			Xchat::command("say Stop hogging all the best pitches $presenthunt, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			"my \$last_present = " 
			}
		Xchat::command("msg $present_unwrapper You unwrap your present from $presentplaces and see what you get...");
		Xchat::command("msg $present_unwrapper .");
		Xchat::command("msg $present_unwrapper ..");
		Xchat::command("msg $present_unwrapper ...");
		Xchat::command("msg $present_unwrapper You unwrap and see ...");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $present_unwrapper Congratulations, $present_unwrapper! You just unwrapped a $weight$scale $present!");
			Xchat::command("msg $channel $present_unwrapper just got a  $weight$scale $present");
			if ($weight > $present) {
				Xchat::command("msg $present_unwrapper Wow!!! That's a new record! Way to go, $present_unwrapper! Type !trophy to see it!");
				Xchat::command("msg $channel Brilliant! That breaks the old record of a $present$scale $presenttype! $present_unwrapper is the world's best!");
				$present_unwrapper=$present_unwrapper;
				$present=$weight;
				$presenttype=$present;
				save_trophy();
				}
		} else {
			Xchat::command("msg $present_unwrapper Sorry no present this time $present_unwrapper! Better luck next time!");
			Xchat::command("msg $channel $present_unwrapper is useless, they failed to get a present!");
			}
		}
	if (lc($pubwords[0]) eq '!newmonth') {		
		my $curnick = Xchat::get_info('nick');
		if ((lc($hunter) eq lc($owner_nick)) or ($hunter eq Xchat::get_info('nick'))) {
			$bigfish=0; $fishman='Nobody'; $fishtype='Tiddler'; $fishplace='Toilet'; 
			$bighunt=0; $huntman='Nobody'; $hunttype='Haggis'; $huntplace='Bush';
                        $bigpresent=0; $present_unwrapper='Nobody'; $presenttype='xmas'; $presentplaces='everywhere';
			save_trophy();
			Xchat::command("say It's a new month, all existing huntin' 'n fishin' and present unwrapping records are reset!");
			} else { Xchat::command("say Who are you, $present_unwrapper to tell me to change the month?"); }
		} 
}

sub save_trophy {
	open (DH, ">$trophy_cabinet") or die("Bah! Can't open the trophy cabinet to push this 'ere trophy in!");
	print (DH "$bigfish|$fishman|$fishtype|$fishplace\n");
	print (DH "$bighunt|$huntman|$hunttype|$huntplace");
        print (DH "$bigpresent|$present_unwrapper|$presenttype|$pres
entplaces");
	close (DH);
	}

Help with perl irc game please

Tue, 18 Dec 2012 05:23:37 -0700

#!/usr/bin/perl
#
# Flashy's bloodsports. http://digdilem.org/ - "Because thems trouts ain't gonna catch themselves!"
# (Credit to the original Eggdrop TCL script by Nerfbendr)
#
# Adds silly !hunt, !fish and !trophy and !present public triggers
# Also !newmonth will clean out the trophy cupboard. (Only if you do it, or the nick in $owner_nick)
#
# Optional Configuration (Will work fine without changing these, but you can if you like)
my $owner_nick='rainbowwarrior'; # Your nick - you can only reset the scores remotely if you use this nick.
my $scale = 'kg'; # Say here whether you want to measure weights in lb or kg.
my $catch_percent=90; # How often you catch or shoot something.
my $trophy_cabinet = Xchat::get_info( 'xchatdir' ) . "\\trophies.txt"; # File to keep the trophies in.
# End user configuration
use strict;
Xchat::register( "rainbowwarrrior's Huntin' 'n Fishin' and present unwrapping", 'v.004', "Hunting", "" );
Xchat::hook_print('Channel Message', "hunting");
Xchat::hook_print('Your Message', "hunting");
Xchat::hook_print('Private Message', "hunting");
Xchat::hook_print('Private Message to Dialog', "hunting");
my $bigfish=0,my $fishman='Nobody',my $bighunt=0,my $huntman='Nobody',my $bigpresent=0,my $presenthunt='Nobody',my $present_unwrapper;
my $fishtype='Trout',my $fishplace='Pool';
my $hunttype='bear', my $huntplace='Bushes';
my $presenttype='present', my $presentplaces='xmas';
my $last_hunter;
my $last_fisher;
my $last_presenthunter;
my @hunts = ( "bear","gopher","rabbit","hunter","deer","fox","du
ck","moose","pokemon named Pikachu","park ranger","Yogi Bear","Boo Boo Bear","dog named Benji","cow","raccoon","koala bear","camper","channel lamer");
my @fish = ( "Salmon","Herring","Yellowfin Tuna","Pink Salmon","Chub","Barbel","Perch","Northern Pike","Brown Trout","Arctic Char","Roach","Brayling","Bleak","Cat Fish","Sun Fish","Old Tire","Rusty Tin Can","Genie Lamp","Love Message In A Bottle","Old Log","Rubber Boot","Dead Body","Loch Ness Monster","Old Fishing Lure","Piece of the Titanic","Chunk of Atlantis","Squid","Whale","Dolphin","Porpoise","St
ingray","Submarine","Seal","Seahorse","Jellyfish",
"Starfish","Electric Eel","Great White Shark","Scuba Diver","X","Lag Monster","Virus","Soggy Pack of Smokes","Pile of Weed","Boat Anchor","Pair Of Floaties","Mermaid","Merman","Halibut","Tiddler","
Sock","Trout");
my @presents = ( "a new car","cake","guitar","dvd","xbox360","playstation3
","hairdryer","trampoline","dog","cat","electric shock game","a board game","a snake","tickets to a rock concert","a blowup doll","book");
my @huntplaces = ("in some bushes","in a hunting blind","in a hole","up in a tree","in a hiding place","out in the open","in the middle of a field","downtown","on a street corner","at the local mall");
my @fishplaces = ("Stream","Lake","River","Pond","Ocean","Bathtub",
"Kiddie's Swimming Pool","Toilet","Pile of Vomit","Pool of Urine","Kitchen Sink","Bathroom Sink","Mud Puddle","Pail of Water","Bowl of Jell-O (tm)","Wash Basin","Rain Barrel","Aquarium","SnowBank","WaterFall","Cup of Coffee","Glass of Milk");
my @presentplaces = ("in a cupboard","under a xmas tree","in the liverroom","up in a tree","in a hiding place","out in the open","upstairs","on a boat","on a street corner","at the local mall");



Xchat::print("Path=($trophy_cabinet");

if (open (DH,"<$trophy_cabinet>")) {
	($bigfish,$fishman,$fishtype,$fishplace) = split(/\|/,<DH>);
	chomp($fishplace);
	($bighunt,$huntman,$hunttype,$huntplace) = split(/\|/,<DH>);
        my ($bigpresent,$presenthunt,$presenttype,$present_un
wrapper,$presentplaces) = split(/\|/,<DH>);
	close (DH);
	Xchat::print("Peered in the trophy cabinet: ($bigfish$scale $fishtype by $fishman) ($bighunt$scale $hunttype by $huntman) ($bigpresent$scale $presenttype by $present_unwrapper");
	} else { 
	Xchat::print("\002Woo, looks like we've not gone hunting before. Let's make a trophy cabinet...");
	save_trophy();
	}
	
Xchat::print("\002Loaded Flash's Huntin' 'n Fishin'\002 (!hunt, !fish !present !trophy - Current records are $bigfish$scale and $bighunt$scale)");

sub hunting {
	my @pubwords = split(/ /,$_[0][1]);
	my $hunter = Xchat::strip_code($_[0][0]);
	my $channel = Xchat::get_info('channel');
	if (lc($pubwords[0]) eq '!hunt') {
		if ($hunter eq $last_hunter) { 
			Xchat::command("say Stop hogging all the best pitches $hunter, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			$last_hunter = $hunter; 
			}
		my $huntplace = @huntplaces[rand(scalar @huntplaces)];
		my $hunt = @hunts[rand(scalar @hunts)];
		my $weight = 1+int(rand($bighunt+10));
		Xchat::command("msg $hunter You hide $huntplace and wait for something to wander by...");
		Xchat::command("msg $hunter .");
		Xchat::command("msg $hunter ..");
		Xchat::command("msg $hunter ...");
		Xchat::command("msg $hunter You think you hear something and fire wildly in that direction!");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $hunter Congratulations, $hunter! You just bagged yourself a $weight$scale $hunt!");
			Xchat::command("msg $channel $hunter just bagged a $weight$scale $hunt.");
			if ($weight > $bighunt) {
				Xchat::command("msg $hunter Wow!!! That's a new record! Way to go, $hunter! Type !trophy to see it!");
				Xchat::command("msg $channel Wow! That breaks the old record of a $bighunt$scale $hunttype! $hunter is amazing!");
				$bighunt=$weight;
				$huntman=$hunter;
				$hunttype=$hunt;
				save_trophy();
				}
		} else {
			Xchat::command("msg $hunter Rats...you missed it, $hunter! Better luck next time!");
			Xchat::command("msg $channel $hunter is useless, they missed by a mile!");
			}
		}	
	if (lc($pubwords[0]) eq '!fish') {
		$fishplace = @fishplaces[rand(scalar @fishplaces)];
		my $fishy = @fish[rand(scalar @fish)];
		my $weight = 1+int(rand($bigfish+10));
		if ($hunter eq $last_fisher) { 
			Xchat::command("say Stop hogging all the best pitches $hunter, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			$last_fisher = $hunter; 
			}
		Xchat::command("msg $hunter You cast your line into a $fishplace and wait for a bite...");
		Xchat::command("msg $hunter .");
		Xchat::command("msg $hunter ..");
		Xchat::command("msg $hunter ...");
		Xchat::command("msg $hunter You feel a tug on your line and reel it in...");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $hunter Congratulations, $hunter! You just caught yourself a $weight$scale $fishy!");
			Xchat::command("msg $channel $hunter just caught a $weight$scale $fishy");
			if ($weight > $bigfish) {
				Xchat::command("msg $hunter Wow!!! That's a new record! Way to go, $hunter! Type !trophy to see it!");
				Xchat::command("msg $channel Brilliant! That breaks the old record of a $bigfish$scale $fishtype! $hunter is the world's best!");
				$fishman=$hunter;
				$bigfish=$weight;
				$fishtype=$fishy;
				save_trophy();
				}
		} else {
			Xchat::command("msg $hunter Rats...it got away, $hunter! Better luck next time!");
			Xchat::command("msg $channel $hunter is useless, they failed to catch anything!");
			}
		}
	if (lc($pubwords[0]) eq '!trophy') {
		Xchat::command("say $fishman holds the fishing record when they caught a $bigfish$scale $fishtype");
		Xchat::command("say $huntman holds the hunting record when they bagged a $bighunt$scale $hunttype");
                Xchat::command("say $presenthunt holds the present unwrapping record when they unwrapped a $bigpresent$scale $presenttype");
		}
if (lc($pubwords[0]) eq '!present') {
		my $presentplaces = @presentplaces[rand(scalar @presentplaces)];
		my $present = $presents[int rand @presents]; 
		my $weight = 1+int(rand($present+10));
		if ($present_unwrapper eq $last_presenthunter) { 
			Xchat::command("say Stop hogging all the best pitches $presenthunt, let someone else try first!");
			return Xchat::EAT_NONE;
			} else {
			"my \$last_present = " 
			}
		Xchat::command("msg $present_unwrapper You unwrap your present from $presentplaces and see what you get...");
		Xchat::command("msg $present_unwrapper .");
		Xchat::command("msg $present_unwrapper ..");
		Xchat::command("msg $present_unwrapper ...");
		Xchat::command("msg $present_unwrapper You unwrap and see ...");
		if (rand(100)<$catch_percent) {
			Xchat::command("msg $present_unwrapper Congratulations, $present_unwrapper! You just unwrapped a $weight$scale $present!");
			Xchat::command("msg $channel $present_unwrapper just got a  $weight$scale $present");
			if ($weight > $present) {
				Xchat::command("msg $present_unwrapper Wow!!! That's a new record! Way to go, $present_unwrapper! Type !trophy to see it!");
				Xchat::command("msg $channel Brilliant! That breaks the old record of a $present$scale $presenttype! $present_unwrapper is the world's best!");
				$present_unwrapper=$present_unwrapper;
				$present=$weight;
				$presenttype=$present;
				save_trophy();
				}
		} else {
			Xchat::command("msg $present_unwrapper Sorry no present this time $present_unwrapper! Better luck next time!");
			Xchat::command("msg $channel $present_unwrapper is useless, they failed to get a present!");
			}
		}
	if (lc($pubwords[0]) eq '!newmonth') {		
		my $curnick = Xchat::get_info('nick');
		if ((lc($hunter) eq lc($owner_nick)) or ($hunter eq Xchat::get_info('nick'))) {
			$bigfish=0; $fishman='Nobody'; $fishtype='Tiddler'; $fishplace='Toilet'; 
			$bighunt=0; $huntman='Nobody'; $hunttype='Haggis'; $huntplace='Bush';
                        $bigpresent=0; $present_unwrapper='Nobody'; $presenttype='xmas'; $presentplaces='everywhere';
			save_trophy();
			Xchat::command("say It's a new month, all existing huntin' 'n fishin' and present unwrapping records are reset!");
			} else { Xchat::command("say Who are you, $present_unwrapper to tell me to change the month?"); }
		} 
}

sub save_trophy {
	open (DH, ">$trophy_cabinet") or die("Bah! Can't open the trophy cabinet to push this 'ere trophy in!");
	print (DH "$bigfish|$fishman|$fishtype|$fishplace\n");
	print (DH "$bighunt|$huntman|$hunttype|$huntplace");
        print (DH "$bigpresent|$present_unwrapper|$presenttype|$pres
entplaces");
	close (DH);
	}