Gossamer Forum: General: Perl Programming: some perl help

May 11, 2004, 11:27 AM

perlman

User (150 posts)

May 11, 2004, 11:27 AM

Post #1 of 6

Shortcut

some perl help

Writing this perl script, and now I have this silly I/O problem. I'm writing to a file, and changing 1 line.
So I have to overwrite the whole file with the new line that has been edited, and then add the old one.

But I get spaces between everyline! I am chomping every line, and I add \n to the end of the line that is being written to the file, but I just can't get the lines to "stick together."

Code:
open(WRITEDATA, ">$members2"); 
flock(WRITEDATA,2); 

	foreach $entries2 (@indata2){ 
	chomp($entires2); 
	($number, $name, $email) = split(/\|/, $entries2); 

if ($name2 eq $name) { 
print WRITEDATA "$number|$newname|$newemail\n";

This is just an example. My code is slightly different.
So each time I do the action this happens:

Quote:

if I do it again this happens:

Quote:

You see?
I had this kind of error in another file, and I didn't check it for a long time, and suddenly I had 5000(!!) lines! And I only had line 10 lines with actual contents. The others were "|||||||" or " ".

Can anyone help?

Thanks.

- kbtune

May 11, 2004, 3:33 PM

Andy

Veteran / Moderator (17298 posts)

May 11, 2004, 3:33 PM

Post #2 of 6

Shortcut

Re: [perlman] some perl help In reply to

Code:
open(WRITEDATA, ">$members2") || die "Cant read. Error: $! on file $members2"; 
flock(WRITEDATA,2);  
  
	foreach $entries2 (@indata2){  
	  $entires2 =~ s/\n$/;  
	($number, $name, $email) = split(/\|/, $entries2);  
  
if ($name2 eq $name) {  
print WRITEDATA "$number|$newname|$newemail\n";

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

May 19, 2004, 5:18 AM

perlman

User (150 posts)

May 19, 2004, 5:18 AM

Post #3 of 6

Shortcut

Re: [Andy] some perl help In reply to

I get an error by that Andy.

Quote:

Backslash found where operator expected at nestedp.cgi line 116, near "($name, $email, $username, $password, $url, $date, $telefonok, $alderok, $nestedp) = split(/\"
(Might be a runaway multi-line // string starting on line 115)
(Missing operator before \?)
syntax error at nestedp.cgi line 116, near "($name, $email, $username, $password, $url, $date, $telefonok, $alderok, $nestedp) = split(/\"
syntax error at nestedp.cgi line 132, near "/;"
syntax error at nestedp.cgi line 142, near "}"
Execution of nestedp.cgi aborted due to compilation errors.

This is the code:

Code:
open (MEMBERS, "$members"); 
	@indata = <MEMBERS>; 
	close (MEMBERS); 
	foreach $entries (@indata){ 
         $entires2 =~ s/\n$/; 
  	 ($name, $email, $username, $password, $url, $date, $telefonok, $alderok, $nestedp) = split(/\|/, $entries);

Seems like it is missing something.
I changed the line to this: $entires2 =~ s/\n$//;
and it fixed the error but not the problem.

Can you help?

- perlman

May 19, 2004, 6:11 AM

Andy

Veteran / Moderator (17298 posts)

May 19, 2004, 6:11 AM

Post #4 of 6

Shortcut

Re: [perlman] some perl help In reply to

Sorry, that should be;

$entires2 =~ s/\n$//;

Note the extra / at the end Smile