awk command with PERL Post: 302239634

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk/sed/perl command to delete specific pattern and content above it...

Hi, Below is my input file: Data: 1 Length: 20 Got result. Data: 2 Length: 30 No result. Data: 3 Length: 20

2. Shell Programming and Scripting

awk command in script gives error while same awk command at prompt runs fine: Why?

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};...

3. Shell Programming and Scripting

Command to remove duplicate lines with perl,sed,awk

Input: hello hello hello hello monkey donkey hello hello drink dance drink Output should be: hello hello monkey donkey drink dance

4. Programming

Executing a awk command inside perl script --

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...

5. Shell Programming and Scripting

usage of AWK command under perl script

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...

6. Shell Programming and Scripting

using awk in perl with split command

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...

7. Programming

Errors in Perl when using awk command

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...

8. Shell Programming and Scripting

Convert awk command to Perl

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...

9. Shell Programming and Scripting

Sed/awk/perl command to replace pattern in multiple lines

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

10. Shell Programming and Scripting

Using awk command in Perl

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,...

LEARN ABOUT OSX

io::digest

IO::Digest(3)						User Contributed Perl Documentation					     IO::Digest(3)

NAME

       IO::Digest - Calculate digests while reading or writing

SYNOPSIS

	use IO::Digest;

	# Get a Digest::MD5 object that takes input while $fh being written or read
	$iod = IO::Digest->new ($fh, 'MD5');

	print $fh "fooo";
	print $iod->hexdigest

DESCRIPTION

       This module allows you to calculate digests while reading or writing file handles.  This avoids the case you need to reread the same
       content to compute the digests after written a file.

TEST COVERAGE

	----------------------------------- ------ ------ ------ ------ ------ ------
	File				      stmt branch   cond    sub   time	total
	----------------------------------- ------ ------ ------ ------ ------ ------
	blib/lib/IO/Digest.pm		     100.0    n/a    n/a  100.0  100.0	100.0
	Total				     100.0    n/a    n/a  100.0  100.0	100.0
	----------------------------------- ------ ------ ------ ------ ------ ------

AUTHORS

       Chia-liang Kao <clkao@clkao.org>

COPYRIGHT

       Copyright 2004 by Chia-liang Kao <clkao@clkao.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							    2004-09-11							     IO::Digest(3)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk/sed/perl command to delete specific pattern and content above it...

Discussion started by: edge_diners

2. Shell Programming and Scripting

awk command in script gives error while same awk command at prompt runs fine: Why?

Discussion started by: catalys

3. Shell Programming and Scripting

Command to remove duplicate lines with perl,sed,awk

Discussion started by: cola

4. Programming

Executing a awk command inside perl script --

Discussion started by: Alkass