Perl Forum RSS Feed

How to contact any European university when you're over 30?

Tue, 07 Feb 2012 22:53:41 -0800

A friend of mine contacted a french university, and i lost contact with him, he doesn't go online no more, after he finished his bachelor degree, he started e-mailing them- the university- talking about what he excel in, in his case- drawing- and they contacted him back, don't feel what i write is stupid cause i really have no idea how he contacted them nor what he said all i know that he did, and they set an interview with him back at his home town embassy and he was accepted, i mean his request to join the university, and one day he just left, all i wanna know is how to contact any European university- especially in france cause i speak fluent french- over the internet? and what to talk about? what should i tell them? i really don't seem to excel at anything loool and i don't have that much of experience in work either loool, thanks for your concern and help :)

Rosetta Stone English Version 3

editing text files

Mon, 30 Jan 2012 11:08:33 -0800

I'm looking to use Perl to create (a batch file? .exe?) to find and replace all instances of a specific string, within any text files I point it at

I generally prefer to be able to teach myself, researching and finding the commands I need and whatnot, but so far, it all seems pretty overwhelming

I've just downloaded ActivePerl 5.14.2 and not sure what the heck I'm doing

and what's with all the Captcha fields at every turn? will that go away once I verify my account further, somehow?

Problem wiht Sub

Thu, 29 Dec 2011 06:08:18 -0800

Hello, I would like the Knuth - Morris - Pratt algorithm implemented in Perl. And 2 subs already have written it. The prefix sub and sub match, but the do not seem to be correct. But I honestly do not know so here is exactly the problem. Could someone please give me the hint where he is and maybe the correction? lg Bells

-------
#!/usr/bin/perl
use strict;
use warnings;

# Prefix

sub ermorde_Knuth_next{
my($P)=@_; # Pattern

use integer;

my$m=(0..lenght($P)-1);
my$i=0;
my$j=-1;

my @next; # Array

for ($next[0] = -1; $i < $m; ) {
while ( $j > -1 &&
substr( $P, $i, 1 ) ne substr( $P, $j, 1 ) ) {
$j = $next[ $j ];
}
$i++;
$j++;
$next[ $i ] =
substr( $P, $j, 1 ) eq substr( $P, $i, 1 ) ?
$next[ $j ] : $j;
}
return ($m,@next); # lenght off pattern und der Prefix function
}

#-----------

# Matcher

sub ermorde_Knuth { #knuth_morris_pratt Subroutine
my ( $T, $P ) = @_; # text und pattern.

use integer;

my $m = ermorde_Knuth_next( $P ); #knuth_morris_pratt_next
my ( $n, $i, $j ) = (length($T), 0, 0 );
my @next;

while ( $i < $n ) {
while ( $j > -1 &&
substr( $P, $j, 1 ) ne substr( $T, $i, 1 ) ) {
$j = $next[ $j ];
}
$i++;
$j++;
return $i - $j if $j >= $m; # Match
}
return -1;} # Mismatch

Is it wrong to have feelings for a brother n law?

Mon, 26 Dec 2011 22:28:47 -0800

my brother has kids and is with his baby mother and her brother which is my bro n law and i have some history together. sexual wise and friendship wise. ive always thought he was attractive ever since i met him when i was 14. we've had "done things" since i was 16-18 and i never messed around with another guy but him. now that im older and he's older .whenever i would look at him he would smile at me but he's bisexual and has a boyfriend but they fight all the time he's even told me he doesnt want to be with him but he's been stuck with him for 2 yrs now but thats there mess. but ive always fount him attractive nd i love his personality! is it wrong to have feelings like that for him even though he's my brother n law??

Canada Goose 7950Y

CUT simulation script

Tue, 20 Dec 2011 17:06:48 -0800

Hi guys

I'm learning PERL 3 classes so far, and I'm stuck in a script i have to do which has to do the following:

The main function is doing the same as the CUT command in the linux bash, but the user has to provide the -f and -d option, and applied it to a file given as an argument to the script itself.

I already managed to pass the file contents to an array, but i can't get to the part where it must split the file on the right column, by the given delimeter.

can somebody help me on this

Thnks a lot

HELP NEEDED

Tue, 20 Dec 2011 16:56:38 -0800

This post has been deleted.

Tue, 20 Dec 2011 16:54:47 -0800

This post has been deleted.

A wonderful place barely identified to farm WoW Gold

Mon, 19 Dec 2011 18:10:40 -0800

A wonderful place barely identified to farm WoW Gold

You should recognize how extremely important affordable WoW gold is D8EFJiXd .
It is in actuality a terrific support for yourself to [url=http://www.wtbwowgold.com/world-of-warcraft-us-items.html]buy wow items[/url] level. However, lots of participant do not know in which to acquire cheap, fast, uncomplicated WoW gold. Ok. In fact, within our web, I assure you could possibly get that which you want, mainly because our purpose may be the actuality that customers are God. Meawhile, we are able to provide you some decent guide. Ok, allow us start our topic.As somebody filling a DPS role, you are steering for getting targeting the bad guys a huge vast majority of your time in combat.buy wow gold That is just that which you do. The problems may be the actuality that retribution has lots of buffs you cast in your near friends that should be utilized at a moment in time notice.

You do not have time to hunt and peck in your raid frames to locate the somebody you need to cast Hand of defense on once they pull aggro. concentrate on of concentrate on macros will fix that.That macro will cast Hand of defense in your concentrate on of target. So should you are targeting a dragon along using the dragon is targeting your warlock friend, you will cast Hand of defense for the warlock without the need of needing to de-target the dragon. should you desire to create a specific thing a terrific offer more complex, you certainly can purchase WoW gold. That macro will cast Hand of defense on you demand for you are holding along Ctrl [url=http://www.wtbwowgold.com/world-of-warcraft-us-gears.html]buy wow gear[/url] if you strike the hotkey. should you are not developing utilization of any modifiers, it will cast the spell in your targets target. [url=http://www.viaarena.com/forums/showthread.php?t=46814]http://www.viaarena.com/forums/showthread.php?t=46814[/ url]

Tutorial for DIY the Particular Christmas Cards

Fri, 16 Dec 2011 02:42:49 -0800

The Christmas season is approaching! It is great time for the families and intimate friends getting together to deliver affectionate love, and the simple but memorable way to express our love is to send a self-designed Merry Christmas card.

Tutorial of creating page-flipping greeting Christmas card:
Materials needed: pictures or personal photos what you want to show on card, heartwarming message, Microsoft PowerPoint, Kvisoft Flipbook Maker.

Step 1: create a common greeting card in PowerPoint and save it as PDF format.

Step 2: import PDF card or other images into Kvisoft Flipbook Maker.
It's nice that you can add as many files (PDF, Photo, and FLV) as you needed into the flip page software. Change sequence of added files by drag.

Step 3: set background music, customize template and style for Christmas greeting card simply by mouse click.

Step 4: publish your designed Merry Christmas card as SWF, EXE, HTML or email a friend.

View more detailed tutorial at http://www.kvisoft.com/flipbook-maker/tutorials/.

Why the greeting Christmas card made by Kvisoft Flipbook Maker is popular?
1. Eye-catching and vivid page-turning effect: With animated and iconic book-page dances! The Kvisoft [url=http://www.kvisoft.com/flipbook-maker/]flip book maker[/url] usually brings the receiver nice feeling of reading a realistic book, or viewing a 3D movie. The page-flipping greeting card is never inferior to a real paper card.

2. Various kinds of captivating templates: cherry blossom, joyous Christmas, cartoonish Santa Claus, romantic youth life, and so forth, all these templates of the [url=http://www.kvisoft.com/flipbook-maker/templates/]flip book software[/url] are consisting of classic picture, different yet dynamic buttons, and most attractive animations.

3. Flexible to share Christmas joys and photos with friends: you're free to share your greeting Christmas card with friends on iPad, email, webpage, or Facebook at any place, as the Flipbook Maker allows you to output greeting card of various formats.

4. Environmental and saving resources: replacing paper greeting card with e-card is a significant way to protect mother earth and save resources, including paper, printing ink, etc.

With Christmas on the corner, a beautiful and animated card should be sent to bring your beloved persons some surprises and unforgettable memories. Don't miss the chance to make them smile by page-flipping greeting Christmas card, love can be delivered!

perl problem with space in its folder name

Tue, 06 Dec 2011 08:47:27 -0800

Hi,
I have a problem, When I am trying to run a perl script executable(that was build using plex), It is giving me errors,

Problem:
I have folder structure like below

c:>Satya
|
--> Windows
|
--> fish food

Here "Satya" has a sub folder named "Windows" and "Windows" has one more sub folder "fish food"

I am trying to execute a perl executable present in "fish food" from "Windows" folder. and plex is giving me some error, please help me on this

c:\Satya\Windows>"fish food\opx_CMB_GEN_903.exe"
Can't open fish: No such file or directory at -e line 1.
Can't open food\opx_CMB_GEN_903.exe: No such file or directory at -e line 1.
Can't open fish: No such file or directory at -e line 1.
Can't open food\opx_CMB_GEN_903.exe: No such file or directory at -e line 1.
Can't open fish: No such file or directory at -e line 1.
Can't open food\opx_CMB_GEN_903.pl: No such file or directory at -e line 1.
not found

Thanks In Advance,
Satya.

perl problem with space in its folder name

Tue, 06 Dec 2011 08:45:36 -0800

Monster Beats Studio Headphone in White Silver Diamond Minimal Edition

Thu, 27 Oct 2011 00:05:22 -0800

Monster Beats Studio Headphone in White Silver Diamond Restricted Edition<a href="http://www.monsterbeatsu.com">beats headphones</a> Headphones, Earphone and earplugs goods recently are acquiring quite speedily, and consumers' interest for headphones, earphone and earplugs products steadily rise. Lots of pals begin to purchase some large excellent products to match their audio equipment, that are notied with the each native and aboard headset model plus they launched several items inside a international sector, let consumer stunning.But headphones this kind of products is an extremely specific item, belonging towards the subjective feeling sort of products and solutions. Today I will present you with a detailed converse about America's new most fervent Monster studio headphones.<a href="http://www.monsterbeatsu.com">monster headphones</a>First,let me introduce Monster, it is a professional wire brand name,widely made use of,with solid catholicity,reliable efficiency, for large civil customers, quite a few products and solutions are broadly welcomed due to low cost, craft excellent, and stable effectiveness . This earphone is common created by Grammy winner Dr. Dre. Together with the audio expert team of Monster, working with state-of-the-art loudspeaker structure and dynamic isolation technological know-how isolated noise, which can supply higher definition music, the proprietary driver engineering is connected because of the wire of MONSTER.Inserting headphones, the songs played, the initial feeling is completely. In the headset's shape, it is definitely not in a position to think about the voice is so clear similar to this transparent, particulars in enormous ,in extremely exact positioned, is not going to be vague or confusion even below big dynamic, especially pay attention to some ridiculous drum.You can obviously distinguish every drum percussion place, space stereo feeling is quite sturdy,<a href="http://www.monsterbeatsu.com/monster-beats-by-dr-dre-c-4.html">dr dre headphones</a>very head, this can be SA5000 nor give my this kind of feelings and listening to some reside recording is likely to make you may have unprecedented feeling. Vocals, is quite spectacular, is extremely obvious in male and feminine voice before instruments are extraordinary operate, low-frequency is plenty of,and submergence can also be quite deep, recycling, descend fairly rapid, the velocity of listening to pop, JAZZ, mad HIPHOP may be very delighted,aside from, functionality of string and piano are all very good, sound area also very big, estimates that even listening to classical is good.Demand for front-end is just not substantial, performance beneath X - Fi ,D50, flying saucers and IPC is rather superior, pretty simple to push, right after all, positioning is carry-on headphones. Influence of noise reduction may be very very good, I failed to listen to that my dad at my door exterior knocking knocked about until eventually when using the previous power in taken , then I set Z5500 open up to standard,listening to songs volume, then carrying your headsets hear , also didn't hear the voice of Z5500.

Monster Beats Studio Headphone in White Silver Diamond Minimal Edition

Thu, 27 Oct 2011 00:02:52 -0800

What's wrong with my code?

Sat, 22 Oct 2011 21:07:57 -0800

I'm a total noob to Perl. Why isn't this working?? I don't get an error message, it just returns '0' and nothing is added to the database:

---------------------

#!/usr/bin/perl 

use Mysql; 
use CGI; 
use DBI; 

print "Content-type: text/html \n\n"; 

# Read form data etc. dh 
my $cgi = new CGI; 

my $game = $cgi->param('game');#next 3 dh 
my $playerName = $cgi->param('player'); 
my $score = $cgi->param('score'); 

exit 0 unless $game; # dh 

# MYSQL CONFIG VARIABLES 
$host = "xxxx"; 
$database = "xxxx"; 
$tablename = "xxxx"; 
$user = "xxxx"; 
$pw = "xxxx"; 

# PERL MYSQL CONNECT() 
$connect = Mysql->connect($host, $database, $user, $pw); 

# SELECT DB 
$connect->selectdb($database); 

# DEFINE A MySQL QUERY 
$myquery = "INSERT INTO $tablename (game, player, score) VALUES (?,?,?)"; 

# PREPARE THE QUERY FUNCTION DH 
$execute = $connect->prepare($myquery); 

# EXECUTE THE QUERY FUNCTION DH 
$execute->execute($games, $player, $score); 

# AFFECTED ROWS 
$affectedrows = $execute->affectedrows($myquery); 

# ID OF LAST INSERT 
$lastid = $execute->insertid($myquery); 

print $affectedrows."<br />"; 
print $lastid."<br />";

-------------------------------

If I replace the lines:

# PREPARE THE QUERY FUNCTION DH 
$execute = $connect->prepare($myquery); 

# EXECUTE THE QUERY FUNCTION DH 
$execute->execute($games, $player, $score);

With:

# EXECUTE THE QUERY FUNCTION 
$execute = $connect->query($myquery);

And I put explicit VALUES in the definition of $myquery preceding this line the values are inserted with no issues...

If it helps at all the HTML form code I'm using is:

<form action="xxx" method="POST"> 
<p> Game Name: <input type="text" name="game"/> </p> 
<p> Player Name: <input type="text" name="player"/> </p> 
<p> Score: <input type="text" name="score"/> </p> 
<input type="submit" value="Submit"/> 
</form>

What's goin on here? I feel like my code matches every example I can find to a tee...

What's wrong with my code?

Sat, 22 Oct 2011 21:06:06 -0800

I'm a total noob to Perl. Why isn't this working?? I don't get an error message, it just returns '0' and nothing is added to the database:

---------------------

#!/usr/bin/perl 

use Mysql; 
use CGI; 
use DBI; 

print "Content-type: text/html \n\n"; 

# Read form data etc. dh 
my $cgi = new CGI; 

my $game = $cgi->param('game');#next 3 dh 
my $playerName = $cgi->param('player'); 
my $score = $cgi->param('score'); 

exit 0 unless $game; # dh 

# MYSQL CONFIG VARIABLES 
$host = "xxxx"; 
$database = "xxxx"; 
$tablename = "xxxx"; 
$user = "xxxx"; 
$pw = "xxxx"; 

# PERL MYSQL CONNECT() 
$connect = Mysql->connect($host, $database, $user, $pw); 

# SELECT DB 
$connect->selectdb($database); 

# DEFINE A MySQL QUERY 
$myquery = "INSERT INTO $tablename (game, player, score) VALUES (?,?,?)"; 

# PREPARE THE QUERY FUNCTION DH 
$execute = $connect->prepare($myquery); 

# EXECUTE THE QUERY FUNCTION DH 
$execute->execute($games, $player, $score); 

# AFFECTED ROWS 
$affectedrows = $execute->affectedrows($myquery); 

# ID OF LAST INSERT 
$lastid = $execute->insertid($myquery); 

print $affectedrows."<br />"; 
print $lastid."<br />";

-------------------------------

If I replace the lines:

# PREPARE THE QUERY FUNCTION DH 
$execute = $connect->prepare($myquery); 

# EXECUTE THE QUERY FUNCTION DH 
$execute->execute($games, $player, $score);

With:

# EXECUTE THE QUERY FUNCTION 
$execute = $connect->query($myquery);

And I put explicit VALUES in the definition of $myquery preceding this line the values are inserted with no issues...

If it helps at all the HTML form code I'm using is:

<form action="xxx" method="POST"> 
<p> Game Name: <input type="text" name="game"/> </p> 
<p> Player Name: <input type="text" name="player"/> </p> 
<p> Score: <input type="text" name="score"/> </p> 
<input type="submit" value="Submit"/> 
</form>

What's goin on here? I feel like my code matches every example I can find to a tee...

Help me with perl programming

Wed, 12 Oct 2011 05:52:09 -0800

Hi,
I written script that read an xml file and create hash by using libxml:reader module. as shown below my code

#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML::Reader;
#Reading XML with a pull parser
my $file;
open( $file, 'formal.xml');
my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
my %nums;
while ($reader->nextElement( 'Data' ) ) {
 
my $des = $reader->readOuterXml();
 
$reader->nextElement( 'Number' ); 
my $desnode = $reader->readInnerXml(); 
 
$nums{$desnode}= $des;
print( " NUMBER: $desnode\n" );
print( " Datainfo: $des\n" );
}

but in the above code i used xml file path "formal.xml" in main inside module. now i need to modify this code like specify the filepath outside the main module and create hash. for example like function call in c language. using sub functions in perl i need to modify. i am very beginer to perl. can any one help me.

Help me with perl programming

Wed, 12 Oct 2011 05:48:30 -0800

Hi,
I written script that read an xml file and create hash by using libxml:reader module. as shown below my code

#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML::Reader;
#Reading XML with a pull parser
my $file;
open( $file, 'formal.xml');
my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
my %nums;
while ($reader->nextElement( 'Data' ) ) {

my $des = $reader->readOuterXml();

$reader->nextElement( 'Number' );
my $desnode = $reader->readInnerXml();

$nums{$desnode}= $des;
print( " NUMBER: $desnode\n" );
print( " Datainfo: $des\n" );
}

but in the above code i used xml file path "formal.xml" in main inside module. now i need to modify this code like specify the filepath outside the main module and create hash. for example like function call in c language. using sub functions in perl i need to modify. i am very beginer to perl. can any one help me.

New to Programmers Heaven

Fri, 02 Sep 2011 08:12:05 -0800

Hello,

I am new to this board and I'm looking for a programming community where I can learn new things.

I'm in my Senior year in a Computer Science B.S. I honestly feel that my programming skills are lacking, I know a lot of theory but in practical usage I can get lost.

For example, I just started a 1 credit PERL class where the professor had us walk through designing a blackjack program and my assignment is to incorporate a 2nd player (computer).

So I need to do a lot of research on PERL just because the syntax is a bit odd to me.

If I ask questions from my homework (obviously not to get the whole problem solved) but just a small portion, will I get flamed?

I just want to know how I can utilize these forums for my benefit while attempting to contribute what I can.

% operator in perl

Tue, 30 Aug 2011 10:35:02 -0800

I wonder if anybody else had the same problem.

Here I have a very simple perl script:
=======start of code==========
#!/usr/bin/perl
$bY = "254";
$gY = "1.8";
for($r = 0; $r <= $bY; $r = sprintf("%.3f", $r + $gY)) {
print "now it is $r\n";
$evenOdd =( $r / $gY ) % 2;
$div =( $r / $gY ) ;
printf "by 2 is %s\n", $div;
printf "by 2 remainder is %s\n", $evenOdd;
if( (($r / $gY) % 2) == 0) {
print"and it an even number\n";
} else {
print"and it an odd number\n";
}
}
========end of code========
When I run it:
~/bin/production/t4odd
I got these:
...
now it is 212.400
by 2 is 118
by 2 remainder is 0
and it an even number
now it is 214.200
by 2 is 119
by 2 remainder is 0
and it an even number
now it is 216.000
by 2 is 120
by 2 remainder is 0
and it an even number
now it is 217.800
by 2 is 121
by 2 remainder is 1
and it an odd number
now it is 219.600
by 2 is 122
by 2 remainder is 0
and it an even number
now it is 221.400
by 2 is 123
...

Please note:
212.4 / 1.8 will yield 118, which was divided by 2 would yield a remainder of 0, which is an even number

but 214.2 /1.8 will yield 119, which was divided by 2 would've yielded a remainder of 1, why perl gave a remainder of "0"?

How to decode script ..

Sun, 15 May 2011 01:27:31 -0800

I want to decode this script.
How please.

How to connect to Rackspace server in perl

Mon, 09 May 2011 06:37:39 -0800

Hi,
This is Senthil .I am new to this forum .I want to connect to RackSpace Server In perl.Could you please share your idea if you have

regards
B.K Senthil Kumar

Using regular expression in perl

Wed, 13 Apr 2011 00:57:01 -0800

Hello Guys,

Sorry, I am not sure if this thread belongs here.
I am new to perl and writing a regex for identifying if the user input lies in the set [0,100), i.e. the number must lie between 0-100, 0 included. It can be of form 0.000001, .00001, 90, 90.999153263, .12 etc
Following is the regex I wrote: $input =~ /\d\d?\.\d+|(\d\d?|\.\d+)/, but I am not gettinh the result. Can someone help me in this? Thanks in advance.

how to get date in a perl script

Wed, 13 Apr 2011 00:52:48 -0800

I am trying to let my perl script to create a subfolder using the current date in the format of 'yyyymmdd'.

Anyone has done that before?

Thanks.

turn on debug below perl code

Sun, 27 Mar 2011 21:24:03 -0800

How to turn on debug in function sendSMTP ??
What is the fucntion var $debug ??

#!/usr/bin/perl -w

use Socket;
use strict;

my($mailTo)     = 'chuikingman@yahoo.com.hk';
my($mailServer) = 'mail.hgcbroadband.com';

my($mailFrom)   = 'medined@mtolive.com';
my($realName)   = "chuikingman";
my($subject)    = 'Test send_mail';
my($body)       = "Test Line One.\nTest Line Two.\n";

$main::SIG{'INT'} = 'closeSocket';

my($proto)      = getprotobyname("tcp")        || 6;
my($port)       = getservbyname("SMTP", "tcp") || 25;
my($serverAddr) = (gethostbyname($mailServer))[4];

die('gethostbyname failed.') unless (defined($serverAddr));

socket(SMTP, AF_INET(), SOCK_STREAM(), $proto)
    or die("socket: $!");

 my $packFormat;
$packFormat = 'S n a4 x8';   # Windows 95, SunOs 4.1+
#$packFormat = 'S n c4 x8';   # SunOs 5.4+ (Solaris 2)

connect(SMTP, pack($packFormat, AF_INET(), $port, $serverAddr))
    or die("connect: $!");

select(SMTP); $| = 1; select(STDOUT);    # use unbuffered i/o.

{
    my($inpBuf) = '';

    recv(SMTP, $inpBuf, 200, 0);
    recv(SMTP, $inpBuf, 200, 0);
}
my $debug = 1 ;
sendSMTP(1, "HELO\n");
sendSMTP(1, "MAIL From: <$mailFrom>\n");
sendSMTP(1, "RCPT To: <$mailTo>\n");
sendSMTP(1, "DATA\n");

send(SMTP, "From: $realName\n", 0);
send(SMTP, "Subject: $subject\n", 0);
send(SMTP, $body, 0);

sendSMTP(1, "\r\n.\r\n");
sendSMTP(1, "QUIT\n");

close(SMTP);

sub closeSocket {     # close smtp socket on error
    close(SMTP);
    die("SMTP socket closed due to SIGINT\n");
}

sub sendSMTP {
    my($debug)  = shift;
    #my($debug)  = 1;
    my($buffer) = @_;

    print STDERR ("> $buffer") if $debug;
    send(SMTP, $buffer, 0);

    recv(SMTP, $buffer, 200, 0);
    print STDERR ("< $buffer") if $debug;

    return( (split(/ /, $buffer))[0] );
}

Need help perl

Thu, 24 Feb 2011 18:53:08 -0800

Hi,

I want to compare a file "A" with all files in a directory call "DIR_b" and if file "A" has timestampe older than any file in "DIR_b" then report file "A" need to update.

Here is my code but it does not work
Thanks,
Tony

#!/user/bin/perl -w

$dir_A = "/home/tmp/test";
$dir_B = "/home/tmp/DIR_b"
@list = `cd $dir_B/; ls -t`;

$newest1 = '';
$newest1 = $list[0];
$newwest2 = "$dir_A/file_A";
print "Need to update $dir_A \n"
if (-M "$dir_A" > -M "$newest1");