Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

writing at a new line to a file?

Status
Not open for further replies.
rtb1

rtb1

IS-IT--Management
Joined
Jul 17, 2000
Messages
73
Location
ES
Hi,

I'm trying to maintain a log file. Actually I thought it was working fine but there is a little problem:

Each time the script writes to the file it continues on the same line while it should start at a new line.

This is the piece of script that I use:

$download_log = $ENV{'DOCUMENT_ROOT'} . 'download_log.txt';
open (EMAIL_FILE, ">> $download_log") or &error("Could not open data file at line ", __LINE__);
flock EMAIL_FILE, 2 or &error("Could not lock data file at line ", __LINE__);
print EMAIL_FILE $SHORTDATE . " | " . $Name . " | " . $Email . " | " . $occup . " | " . $Country;
close EMAIL_FILE;
flock EMAIL_FILE, 8;

Can anybody tell me what I have to add to the script to start at a new line when it writes to the file?

I guess this is very simple to solve but I don't know how!

Thanks,

raoul
 
Sort by date Sort by votes
add a newline(\n)!

print EMAIL_FILE qq~$SHORTDATE ¦ $Name ¦ $Email ¦ $occup | $Country\n~;
 
Upvote 0 Downvote
I tried this but without the ~ at the end which gave an internal error.

Thanks!
 
Upvote 0 Downvote
If you start your string with qq~ then you have to end it with ~; Did the newline help?
 
Upvote 0 Downvote
Yes it did,thanks again!

Actually the qq~ is what you added, and it does look a bit more sophisticated.
 
Upvote 0 Downvote
Using qq~~; means that you don't have to escape the quotes.

For example, you could write this:

print &quot;<input type=\&quot;text\&quot; name=\&quot;$name\&quot; value=\&quot;$value\&quot;>&quot;;

or this:

print qq~<input type=&quot;text&quot; name=&quot;$name&quot; value=&quot;$value&quot;>~;

Isn't that much easier? You can also span multiple lines.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question Question
Perl how to read line from file with interpolation
Replies
6
Views
1K
rob54321
rob54321
newbie1238585
  • Locked
  • Question Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
846
mikrom
mikrom
Dino_1000
  • Locked
  • Question Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
699
Dino_1000
Dino_1000
dan
  • Locked
  • Question Question
add a variable to subject in formmail.pl
Replies
6
Views
840
feherke
feherke
ss_ham
  • Locked
  • Question Question
in Perl find call looking to exclude folder and ignore duplicate finds.
Replies
2
Views
766
ss_ham
ss_ham

Part and Inventory Search

Sponsor

Back
Top