perl - Grep command to find blank line - works in terminal, not in the file itself? -

-

i writing perl script, called qmail each incoming mail, parse content , find body of email. reason doing add user information database, append body, , forward address (a listserv).

unsolveable problem this:

cat dbody.txt|grep -a1000 '^\s*$'

purpose: find first blank line (being end of header information) , return after that

when run line command line (using terminal) (ie. directly) - works fine. returns body of email.

when run in script - it doesn't.

have tested endlessly , cannot think of reason why be, or should change. help!

lines script - first "test" - works fine.

$test =`cat dbody.txt|grep -a1000 '^\s*$'`; $body= `cat dbody.txt|grep -a1000 '2,/^$/d'`;

when print above final email - $test returns full text (as test), $body remains blank.

you can use perl this:

use strict; use warnings; $body; open $file, "<", "dbody.txt" or die("$!"); while (<$file>) {     $body .= $_ if defined $body;     $body  = "" if not defined $body , /^$/; } close $file; print $body;

or, escape dollar signs:

$body= `grep -a1000 '2,/^\$/d' dbody.txt`;

Comments

Post a Comment

Popular posts from this blog

Perl - how to grep a block of text from a file -

-
it can in xml or text format. how in general grep block of text in perl? <track type="ws"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>0</locationindex> <propertyindex>0</propertyindex> </range> </track> <track type="ps" id="1"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>1</locationindex> <propertyindex>1</propertyindex> </range> </track> i want grep type="ps" , till </range> . one solution open file, read line line , match block. open(fh, "file.txt"); foreach $line (<fh>) { if ($line =~ m/type="cc"(.*?)<\/range>/) { print $1; } } but there more optimal solution without reading file line l
Read more

delphi - How to remove all the grips on a coolbar if I have several coolbands? -

-
Image
if set mycoolbar.fixedorder true,only grip on first band hidden. well,if use delphi 7 create vcl forms application,then put coolbar on , create 3 coolbans hold other controls,only grip , top coolbands can hidden setting mycoolbar.fixedorder:=true. i've uploaded picture make things clear. you got fixedorder property wrong. fixed property not allow bands rearranged if set true . setting property of coolbar true keep user changing bands order @ runtime, user can still move , resize bands. can give advice can do, actual solution problem, well, have wait answer. my advice use 3 coolbars in row , setting "fixedorder" property true , bandborderstyle bsnone . way grip hidden on of them. about property, it's not bug of ide, actual preference of property.
Read more

javascript - Animating array of divs; only the final element is modified -

-
this baffling me @ moment. i'm experienced programmer looking throw bit of surprise fiancee on countdown page our wedding. desired effect simulated confetti falling behind main page. setup follows: i have array of divs in javascript. each div absolutely positioned on page. have interval set updates every 50 or milliseconds. on each tick, run loop on array of divs, , calculations , update positions. problem problem having, however, though can see divs created, stored array, , modified (in case, each has slight randomized rotation) during initialization phase, once tick update position starts, div stored in whatever last slot of array gets position updated. tried hard-coding each div index testing purposes, strictly last element update position. upon printing current "left" , "top" style values each div before , after calculations shows value has been changed, no visible change noticeable. here's basic code: javascript var container;
Read more