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 (18441 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

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 (18441 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