I have to test the directory name which is obtained from
for dir in `ls -l|grep $9 '
i need to check whether it is directory (
if yes, I have to check the first 3 character fo the directory
how can I do that? Please help me
thanks (3 Replies)
hi,
i have a script which pipes the output of a diff -rq command into a separate file/ it would read something like this:
Files mod1/lala/xml/test1.txt and mod2/lala/xml/test1.txt differ
Only in mod2/lala/xml: test2.txt
What i need to do is to parse this file so i end up with just a... (5 Replies)
Hi Friends
How to list of all files in a particular directory structure, with out listing a particular file extn.
I mean to say in a folder structure I have many files ..I want to list them with out *.class files.
Please help
Thanks
Joy (3 Replies)
Hi guys,
I couldn't find solution to this problem. If anyone knows please help me out.
your guidance is highly appretiated.
I have two files -
FILE1 has the following 7 columns ( - has been added to make columns visible enough else columns are separated by single space)
155.34 - leg - 1... (8 Replies)
Hi people,
I am writing a korn shell script, and one of the command gives an output something like below:
release.label.2010.03.02
objects:
/project/path/to/some/file_name.ksh
/project/path/another/file_name01.dat
I have to retrieve the file paths one by one & use them as... (9 Replies)
Hi All,
Looking for a quick AWK script to output some differences between two files.
FILE1
device1 1.1.1.1 PINGS
device1 2.2.2.2 PINGS
FILE2
2862 SITE1 device1-prod 1.1.1.1 icmp - 0 ... (4 Replies)
Hi All,
Below is the 2 different ouputs of the command "ls -lrt", my question is what exactly "total 0" & "total 8" means here ?
$ ls -rtl
total 0
-rw-r--r-- 1 oracle dba 0 Feb 10 20:16 c
-rw-r--r-- 1 oracle dba 0 Feb 10 20:16 b
-rw-r--r-- 1... (1 Reply)
I have an output file similar to this
>HWI-ST766:129:D0WJDACXX:4:2308:16645:199681.1 /start=1 /end=100 /strand=+ Eukaryotic18S_rRNA
GATTAAGCCATGCATGTGTAAGTTTAAAGTCCTAGAAGGATGAAACTGCGGACGGCTCAT
TATAACAGTAATAGTTTCTTTGGTTAGTATCTATAAGGAT
>HWI-ST766:129:D0WJDACXX:4:2308:2922:199946.1 /start=1... (4 Replies)
I have a requirement where I need parse through files in a directory which have a specific pattern and then check whether the file has been processed or not. The exit condition is any file that has been processed will have an entry in database. If it is processed i.e., if an entry is present for... (4 Replies)
Hi,
Below are the sample files. x.txt is from an Excel file that is a list of users from Windows and y.txt is a list of database account.
$ head -500 x.txt y.txt
==> x.txt <==
TEST01 APP_USER_PROFILE
USER03 APP_USER_PROFILE
TEST02 APP_USER_EXP_PROFILE
TEST04 APP_USER_PROFILE
USER01 ... (3 Replies)
Discussion started by: newbie_01
3 Replies
LEARN ABOUT DEBIAN
term::size
Size(3pm) User Contributed Perl Documentation Size(3pm)NAME
Term::Size - Retrieve terminal size (Unix version)
SYNOPSIS
use Term::Size;
($columns, $rows) = Term::Size::chars *STDOUT{IO};
($x, $y) = Term::Size::pixels;
DESCRIPTION
Term::Size is a Perl module which provides a straightforward way to retrieve the terminal size.
Both functions take an optional filehandle argument, which defaults to *STDIN{IO}. They both return a list of two values, which are the
current width and height, respectively, of the terminal associated with the specified filehandle.
"Term::Size::chars" returns the size in units of characters, whereas "Term::Size::pixels" uses units of pixels.
In a scalar context, both functions return the first element of the list, that is, the terminal width.
The functions may be imported.
If you need to pass a filehandle to either of the "Term::Size" functions, beware that the *STDOUT{IO} syntax is only supported in Perl
5.004 and later. If you have an earlier version of Perl, or are interested in backwards compatibility, use *STDOUT instead.
EXAMPLES
1. Refuse to run in a too narrow window.
use Term::Size;
die "Need 80 column screen" if Term::Size::chars *STDOUT{IO} < 80;
2. Track window size changes.
use Term::Size 'chars';
my $changed = 1;
while(1) {
local $SIG{'WINCH'} = sub { $changed = 1 };
if ($changed) {
($cols, $rows) = chars;
# Redraw, or whatever.
$changed = 0;
}
}
RETURN VALUES
Both functions return "undef" if there is an error.
If the terminal size information is not available, the functions will normally return "(0, 0)", but this depends on your system. On
character only terminals, "pixels" will normally return "(0, 0)".
BUGS
It only works on Unix systems.
AUTHOR
Tim Goodwin, <tim@uunet.pipex.com>, 1997-04-23.
Candidate for maintainership: Adriano Ferreira, <ferreira@cpan.org>, 2006-05-19.
perl v5.14.2 2012-03-04 Size(3pm)