Errors in Perl when using awk command Post: 302586708

Sponsored Content

Top Forums Programming Errors in Perl when using awk command Post 302586708 by rymnd_12345 on Tuesday 3rd of January 2012 05:01:16 AM

01-03-2012

Registered User

Hi curleb,

Thanks for the info, for now I've already created one using shell script this time. The script is now working and later I will put it in CRON.

Our server can only accept CRON entries provided you're a root user, so I've tried to input the script as a root user, my problem is that it's not functioning. Here is the analogy below:

Files that I want to remove are located in /home/user/USER_LOGS/, the script is also located in this directory. This is the script:

Code:

#!/usr/bin/sh

num_of_files=`ls /home/nsadm/USER_LOGS/ | grep UserActivity | grep UMB00 | wc -l`

if [ $num_of_files -gt 3 ]
then
remove=`ls -lrt /home/nsadm/USER_LOGS/ | grep UserActivity | grep UMB00 | head -1 | awk '{print $8}' | rm \`xargs\``
$remove
fi

but as per running the script when I'm in the directory /root (this is the default directory upon login as root user), it can't see the file and therefor it can't perform the rm function. This is what I've did as root user:

Code:

root:~ # /home/user/USER_LOGS/remover.sh
rm: cannot remove `09:46': No such file or directory

I think the problem here is that it can't locate the files that I want to delete under the /root directory. Can you help me how to enhance my script so that if ever I would like to put it in CRON it will function normally, by removing file on top and retaining only 3 files on it.

Please advice,
rymnd_12345

Last edited by vbe; 01-04-2012 at 12:30 PM.. Reason: code tag correction...

rymnd_12345

View Public Profile for rymnd_12345

Find all posts by rymnd_12345

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk command with PERL

Hi All, My Input file looks like below: Input: 100,200,300 $fw=`head -1 test.csv | awk -F, '{print \$1}'`; $fw="'$fw" $fw="$fw'" print $fw Output:'100' I want the first field to be printed in single quotes ('') like above. I could get the ouptput but the problem is single...

2. Shell Programming and Scripting

PERL Syntax Errors

Hi, I am a newbie to PERL and working on a script. When running it I get a lot of compilation errors. The actual command in the program (which is within a case structure) is given below # This gives the actual count of inquires from a log file (It works fine when I type this on the...

3. Shell Programming and Scripting

Perl: Backtick Errors

When trying to use backticks for system commands, is there a way to read the error messages if a command doesn't execute properly? I have no problem getting the results if the command is properly executed. Ex. my @result = `dir`; foreach my $line (@result) { print "Result = $line";...

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

5. Shell Programming and Scripting

logging errors using perl

Hi, Can some one please tell me how to redirect only errors to the log file using perl. Thanks, Anjan. ---------- Post updated at 08:41 PM ---------- Previous update was at 08:39 PM ---------- Also, i dont want to use any module. Please tell me in normal way

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

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

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

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

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 DEBIAN

bup-margin

bup-margin(1)						      General Commands Manual						     bup-margin(1)

NAME

       bup-margin - figure out your deduplication safety margin

SYNOPSIS

       bup margin [options...]

DESCRIPTION

       bup margin  iterates  through  all  objects  in	your  bup repository, calculating the largest number of prefix bits shared between any two
       entries.  This number, n, identifies the longest subset of SHA-1 you could use and still encounter a collision between your object ids.

       For example, one system that was tested had a collection of 11 million objects (70 GB), and bup margin returned 45.  That  means  a  46-bit
       hash  would be sufficient to avoid all collisions among that set of objects; each object in that repository could be uniquely identified by
       its first 46 bits.

       The number of bits needed seems to increase by about 1 or 2 for every doubling of the number of objects.  Since SHA-1 hashes have 160 bits,
       that  leaves 115 bits of margin.  Of course, because SHA-1 hashes are essentially random, it's theoretically possible to use many more bits
       with far fewer objects.

       If you're paranoid about the possibility of SHA-1 collisions, you can monitor your repository by running bup margin occasionally to see	if
       you're getting dangerously close to 160 bits.

OPTIONS

       --predict
	      Guess  the offset into each index file where a particular object will appear, and report the maximum deviation of the correct answer
	      from the guess.  This is potentially useful for tuning an interpolation search algorithm.

       --ignore-midx
	      don't use .midx files, use only .idx files.  This is only really useful when used with --predict.

EXAMPLE

	      $ bup margin
	      Reading indexes: 100.00% (1612581/1612581), done.
	      40
	      40 matching prefix bits
	      1.94 bits per doubling
	      120 bits (61.86 doublings) remaining
	      4.19338e+18 times larger is possible

	      Everyone on earth could have 625878182 data sets
	      like yours, all in one repository, and we would
	      expect 1 object collision.

	      $ bup margin --predict
	      PackIdxList: using 1 index.
	      Reading indexes: 100.00% (1612581/1612581), done.
	      915 of 1612581 (0.057%)

SEE ALSO

       bup-midx(1), bup-save(1)

BUP

       Part of the bup(1) suite.

AUTHORS

       Avery Pennarun <apenwarr@gmail.com>.

Bup unknown-															     bup-margin(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk command with PERL

Discussion started by: kmkbuddy_1983

2. Shell Programming and Scripting

PERL Syntax Errors

Discussion started by: nurani

3. Shell Programming and Scripting

Perl: Backtick Errors

Discussion started by: kooshi

4. Shell Programming and Scripting

Command to remove duplicate lines with perl,sed,awk

Discussion started by: cola