awk '
BEGIN {
split("PROD INFO DATE HEADER", tag)
split("product info date header", holder)
}
FNR==NR {
for(i in tag) {
if(index($0, tag[i]"START")) active[tag[i]]=1
if(index($0, tag[i]"END")) active[tag[i]]=0
}
gsub(/&/, "\\\\&",$0)
for(a in active)
if (active[a] && !index($0, a "START"))
data[a]=data[a]"\n"$0
next
}
{ for(h in holder) gsub(holder[h] "Placeholder", substr(data[tag[h]],2)) }
1' snippets.txt emailTemplate.eml
Chubler, thank you for your time on this- My script has evolved, and I was hoping I could re-phrase my question.
I have a file names 'log.txt' that looks something like this:
#This is a comment
/sbin/iptables -A INPUT -p tcp -s ip.of.a machine --destination-port 21 -j ACCEPT
#This is the comment to read#
/sbin/iptables -A INPUT -p tcp -s ip.of.a.machine --destination-port 21 -j ACCEPT
I would like... (1 Reply)
I'm attempting to insert multiple lines before a line matching a given search pattern. These lines are generated in a separate function and can either be piped in as stdout or read from a temporary file.
I've been able to insert the lines from a file after the pattern using:
sed -i '/pattern/... (2 Replies)
Hi,
I am trying to get lines between the last occurrences of two patterns. I have files that have several occurrences of “Standard” and “Visual”. I will like to get the lines between “Standard” and “Visual” but I only want to retain only the last one e.g.
Standard
Some words
Some words
Some... (4 Replies)
Hello,
I can extract lines in a file, between two strings but only one time.
If there are multiple occurencies, my command show only one block.
Example, monfichier.txt contains :
debut_sect
texte L1
texte L2
texte L3
texte L4
fin_sect
donnees inutiles 1
donnees inutiles 2
... (8 Replies)
Hi
I know sed and awk has options to give range of line numbers, but
I need to replace pattern in specific lines
Something like
sed -e '1s,14s,26s/pattern/new pattern/' file name
Can somebody help me in this....
I am fine with see/awk/perl
Thank you in advance (9 Replies)
Greetings All,
I would like to find all occurences of a pattern and delete a substring from the all matching lines EXCEPT the first. For example:
1234::group:user1,user2,user3,blah1,blah2,blah3
2222::othergroup:user9,user8
4444::othergroup2:user3,blah,blah,user1
1234::group3:user5,user1
... (11 Replies)
Experts Good day,
I want to filter multiple lines of same error of same day , to only 1 error of each day, the first line from the log.
Here is the file:
May 26 11:29:19 cmihpx02 vmunix: NFS write failed for server cmiauxe1: error 5 (RPC: Timed out)
May 26 11:29:19 cmihpx02 vmunix: NFS... (4 Replies)
hi..
i have a fasta file with the following format
>sequence1
CCGGTTTTCGATTTGGTTTGACT
>sequence2
AAAGTGCCGCCAGGTTTTGAGTGT
>sequence3
AGTGCCGCAGAGTTTGTAGTGT
Now, i want to read alternate line and add "GGGGGGGGGGG" to end of every sequence
Desired output:
>sequence1... (4 Replies)
Hi,
I am running the following:
PASS="username/password"
sqlplus -s << EOF | grep -v "^$"
$PASS
set feedback off
set heading off
set termout off
select name from v\$database ;
exit
EOF
Which gives
ERROR:
ORA-28002: the password will expire within 5 days
PSMP1 (1 Reply)
Discussion started by: newbie_01
1 Replies
LEARN ABOUT DEBIAN
mojo::content::multipart
Mojo::Content::MultiPart(3pm) User Contributed Perl Documentation Mojo::Content::MultiPart(3pm)NAME
Mojo::Content::MultiPart - HTTP 1.1 multipart content container
SYNOPSIS
use Mojo::Content::MultiPart;
my $multi = Mojo::Content::MultiPart->new;
$multi->parse('Content-Type: multipart/mixed; boundary=---foobar');
my $single = $multi->parts->[4];
DESCRIPTION
Mojo::Content::MultiPart is a container for HTTP 1.1 multipart content as described in RFC 2616.
EVENTS
Mojo::Content::Multipart inherits all events from Mojo::Content and can emit the following new ones.
"part"
$multi->on(part => sub {
my ($multi, $single) = @_;
...
});
Emitted when a new Mojo::Content::Single part starts.
$multi->on(part => sub {
my ($multi, $single) = @_;
return unless $single->headers->content_disposition =~ /name="([^"]+)"/;
say "Field: $1";
});
ATTRIBUTES
Mojo::Content::MultiPart inherits all attributes from Mojo::Content and implements the following new ones.
"parts"
my $parts = $multi->parts;
$multi = $multi->parts([]);
Content parts embedded in this multipart content, usually Mojo::Content::Single objects.
METHODS
Mojo::Content::MultiPart inherits all methods from Mojo::Content and implements the following new ones.
"new"
my $multi = Mojo::Content::MultiPart->new;
Construct a new Mojo::Content::MultiPart object and subscribe to "read" event with default content parser.
"body_contains"
my $success = $multi->body_contains('foobarbaz');
Check if content parts contain a specific string.
"body_size"
my $size = $multi->body_size;
Content size in bytes.
"build_boundary"
my $boundary = $multi->build_boundary;
Generate a suitable boundary for content.
"clone"
my $clone = $multi->clone;
Clone content if possible, otherwise return "undef".
"get_body_chunk"
my $chunk = $multi->get_body_chunk(0);
Get a chunk of content starting from a specfic position.
"is_multipart"
my $true = $multi->is_multipart;
True.
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Content::MultiPart(3pm)