QUICK! Need help! PERL programmers!

The E-Blah Developer
E-Blah Programmer

Posts: 15,162

Gender:

Male

Posts Per Day: 5.13

Reputation: 93.25%

Reputation Score: +304 / -22

Time Online: 37 days 13 hours 31 minutes

Location: Tallassee, AL

Age: 23

I wouldn't delete the array variables like that ...

I do installs for $25 and upgrades for $20.
Technical support is always free.

Donate to E-Blah!

My Websites: Revolution Reality (My Blog) | MinistryTalk.com | Portfolio

"But you, O Lord, are a compassionate and gracious God, slow to anger, abounding in love and faithfulness." — Psalm 86:15 NIV

Logged

Offline

Reply: 15 - 21

tylermenezes

January 27, 2007, 9:35pm

)

-----GEEK CODE BLOCK-----
GB/CM/CS>AT d++ s:- a----(?) C++$ U++++ P++! L E-- W+++$ N- o-- K w+++ O--- M- V--
PS PE- Y+ PGP++ t 5- X R-- tv+ b+++ DI+ D- G e+++++ h r-- y-

Anybody here speak Python? HHHSSSSSSSSSSSSSS!

Posts: 200

Gender:

Male

Posts Per Day: 0.13

Reputation: 90.91%

Reputation Score: +20 / -2

Time Online: 1 days 5 hours 56 minutes

Location: Redmond, Washington

Age: 18

It works though. The only relievent part is:

Code

chomp @memberdb;
foreach $arraystring (@memberdb) {	
($username,$quarter,$dateisued,$lunch) = split(/\|/,$arraystring);
push(@usernames, $username);
push(@quarters, $quarter);
push(@dateissueds, $dateisued);
push(@lunches, $lunch);
}
$count = 0;
foreach $user (@usernames) {
	if($user eq $td){
	delete @usernames[$count];
	delete @quarters[$count];
	delete @dateissueds[$count];
	delete @lunches[$count];	
	$count--;
	}
$count++;
}

And all I need help on is "if($user eq $td){". I don't really care about speed, I just need to know why this deletes both "John Smith" and "Jane Smith" and "John Doe". Could you help me, or suggest a better way of going about this? This is the last feature to fall into place, and then I can release it.

Tyler Menezes (About|Blog)

Someone PLEASE increase my reputation! (Or decrease it if you really want to...

Logged

Offline

Reply: 16 - 21

Justin

January 27, 2007, 11:35pm

The E-Blah Developer
E-Blah Programmer

Posts: 15,162

Gender:

Male

Posts Per Day: 5.13

Reputation: 93.25%

Reputation Score: +304 / -22

Time Online: 37 days 13 hours 31 minutes

Location: Tallassee, AL

Age: 23

I don't really see what you're doing.

Code

open(SOMEFILE,"file.txt");
foreach $arraystring (@memberdb) {	
	($username,$quarter,$dateisued,$lunch) = split(/\|/,$arraystring);
	if($username eq 'someuser') { next; }
	push(@usernames, $username);
	push(@quarters, $quarter);
	push(@dateissueds, $dateisued);
	push(@lunches, $lunch);
	print SOMEFILE "$username|$quarter|$dateisued|$lunch\n";
}
close(SOMEFILE);

It's not near as hard as your delete thing is making it ...

Logged

Offline

Reply: 17 - 21

tylermenezes

January 27, 2007, 11:39pm

)

-----GEEK CODE BLOCK-----
GB/CM/CS>AT d++ s:- a----(?) C++$ U++++ P++! L E-- W+++$ N- o-- K w+++ O--- M- V--
PS PE- Y+ PGP++ t 5- X R-- tv+ b+++ DI+ D- G e+++++ h r-- y-

Anybody here speak Python? HHHSSSSSSSSSSSSSS!

Posts: 200

Gender:

Male

Posts Per Day: 0.13

Reputation: 90.91%

Reputation Score: +20 / -2

Time Online: 1 days 5 hours 56 minutes

Location: Redmond, Washington

Age: 18

How do I do it then? I need to: delete a line belonging to a member I know: The username

Remember, this is stored in a file in the format mentioned previously.

Tyler Menezes (About|Blog)

Someone PLEASE increase my reputation! (Or decrease it if you really want to...

Logged

Offline

Reply: 18 - 21

Justin

January 27, 2007, 11:45pm