Hello all,
Here is what my bash script does: sums number columns, saves the tot in new column, outputs if tot >= threshold val:
> cat getnon0file.sh
#!/bin/bash
this="getnon0file.sh"
USAGE=$this"
InFile="xyz.38"
Min="0.05"
#
awk '{sum=0; for(n=2; n<=NF; n++){sum+=$n};... (4 Replies)
Hello experts
I want to execute a awk command, which reads from txt files and sums the numbers from the first column for those listed only inside a <init> block -- The awk command is like
awk '/<\/?init>/{x = !x}x{a++}x && a > 2{sum+=$1}END{printf"%E" "\n", sum}
So, I want to execute... (2 Replies)
i have two files as shown below
t1.txt:
argument1
argu2
argu37
t2.txt:
22
33
44
i want o/p as
argument1 22
argu2 33
argu37 44
i am trying to merge two file under perl script using following
system("paste t1.txt t2.txt | awk... (3 Replies)
Hi,
I have an array with following data. First field shows the owner and second is unique name. Now i have to pic the latest value with respect to the date in case of duplicate.
like "def" is from two owners "rahul/vineet", now i want the latest from the two and the owner name also for all the... (9 Replies)
Hi Guys,
Hope everyone is fine :)
I have this code below:
#!/usr/bin/perl
$num_of_files=`ls | grep -v remover | wc -l`;
$remover=`ls -lrt | grep -v total | grep -v remover | head -1 | awk '{print $8}' | rm \`xargs\``;
if ($num_of_files>3) {
system ($remover);
}
When I... (3 Replies)
Hi all;
I have a Perl script that uses this awk command wrapped in a "system" call; it works exactly as I want it; however I want to keep this a Perl script and have very few if any "system" command...so the question; can someone help me code this in Perl please ... i have tried an now I am... (1 Reply)
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)
Hi All,
I got some requirement of using Awk in perl subroutine
One of the variable in my perl script holds below type of data.
I want to split this value as quotes seperated and get the second last field i.e., 3206000 from above.
I used below code in my perl sub-routine,... (3 Replies)
Discussion started by: hi.villinda
3 Replies
LEARN ABOUT OSX
par::filter
PAR::Filter(3) User Contributed Perl Documentation PAR::Filter(3)NAME
PAR::Filter - Input filter for PAR
SYNOPSIS
$code = 'use strict; print "Hello, World!
";';
$ref = PAR::Filter->new('PodStrip', 'Bleach')->apply($code);
print $code; # pod-stripped and obfuscated code
print $$ref; # same thing
$ref = PAR::Filter->new('PodStrip', 'Bleach')->apply('file.pl');
print $$ref; # same thing, applied to file.pl
DESCRIPTION
Starting with PAR 0.76, "pp -f" takes a filter name, like "Bleach", and invokes this module to transform the programs with
PAR::Filter::Bleach. Similarily, "pp -F Bleach" applies the Bleach filter to all included modules.
It is possible to pass in multiple such filters, which are applied in turn.
The output of each such filter is expected be semantically equivalent to the input, although possibly obfuscated.
The default list of filters include:
o PAR::Filter::Bleach
The archetypical obfuscating filter.
o PAR::Filter::Obfuscate
Use B::Deobfuscate to strip away indents and comments, as well as mangling variable names.
o PAR::Filter::PatchContent
Fix PAR-incompatible modules, applied to modules by default.
o PAR::Filter::PodStrip
Strip away POD sections, applied to modules by default.
o PAR::Filter::Bytecode
Use B::Bytecode to strip away indents and comments. This filter is deprecated! For source hiding, have a look at PAR::Filter::Crypto
instead and make sure to read about its caveats.
AUTHORS
Audrey Tang <cpan@audreyt.org>
COPYRIGHT
Copyright 2003-2009 by Audrey Tang <cpan@audreyt.org>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>
perl v5.16.2 2012-01-06 PAR::Filter(3)