perl folder list with "..", without ".".


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting perl folder list with "..", without ".".
# 1  
Old 07-07-2009
perl folder list with "..", without ".".

Hi Everyone,

if my folder "foldera" inside has one file.
so if i do
Code:
 if ($df =~ /^\./) { next; }

then i will get
###
filea
###

if i want to have
###
..
filea
###
means also display the parent .., how should i modify the perl ~// in my code?

Thanks

---------- Post updated at 06:49 AM ---------- Previous update was at 03:15 AM ----------

I figure out one way, i know it is not good, but it works.
Code:
if ($df =~ /^\.\./) {
This is Parent Directory
} elsif ($df =~ /^\./) {
} else {
This is files.
}


Last edited by jimmy_y; 07-07-2009 at 11:20 AM..
# 2  
Old 07-07-2009
Or, simpler:
Code:
next if $df=~/^\.$/;

# 3  
Old 07-07-2009
Quote:
Originally Posted by pludi
Or, simpler:
Code:
next if $df=~/^\.$/;

Thanks Smilie
# 4  
Old 07-07-2009
if you read a list of files into an array, then '.' is the first entry assuming nothing else is going on that I am not aware of. So just skip the first element of the array when displaying the file/folders:

Code:
open DIR, '.';
my @files = readdir(DIR);
for my $i (1..$#files) {
   print "$files[$i]\n";
}

This should be more efficient than testing every element of the array with a regexp. But if you really need to test then use a string comparison operator instead of a regexp:

Code:
next if $df eq '.';

You don't need a regexp because you are not looking for a pattern.
# 5  
Old 07-07-2009
Hi Kevin,
You mentioned "then '.' is the first entry assuming nothing else is going on that I am not aware of. So just skip the first element of the array when displaying the file/folders:", but sometimes let's say i have few files in a folder, when you print the file name, you may not always get the "." in the first, and ".." in the second line. So i may use sort first.
Code:
open DIR, '.';
my @files = readdir(DIR);
@new_files=sort @files; 
for my $i (1..$#new_files) {
   print "$files[$i]\n";
}

Do not know whether i thought correct or not. Smilie
# 6  
Old 07-07-2009
If you sort the array first the . and .. could end up at other positions in the array, but when I did a test only three ASCII characters sort before . and ..

+
,
-


but your mileage could vary

You could try this:

Code:
open DIR, '.';
my @files = readdir(DIR);
@new_files=sort @files[1 .. $#files]; #leave out the first element of the array
for (@new_files) {
   print "$_\n";
}

# 7  
Old 07-07-2009
Code:
ls -a | egrep -v '^\.$'

Login or Register to Ask a Question

Previous Thread | Next Thread

9 More Discussions You Might Find Interesting

1. AIX

Apache 2.4 directory cannot display "Last modified" "Size" "Description"

Hi 2 all, i have had AIX 7.2 :/# /usr/IBMAHS/bin/apachectl -v Server version: Apache/2.4.12 (Unix) Server built: May 25 2015 04:58:27 :/#:/# /usr/IBMAHS/bin/apachectl -M Loaded Modules: core_module (static) so_module (static) http_module (static) mpm_worker_module (static) ... (3 Replies)
Discussion started by: penchev
3 Replies

2. Shell Programming and Scripting

Bash script - Print an ascii file using specific font "Latin Modern Mono 12" "regular" "9"

Hello. System : opensuse leap 42.3 I have a bash script that build a text file. I would like the last command doing : print_cmd -o page-left=43 -o page-right=22 -o page-top=28 -o page-bottom=43 -o font=LatinModernMono12:regular:9 some_file.txt where : print_cmd ::= some printing... (1 Reply)
Discussion started by: jcdole
1 Replies

3. UNIX for Dummies Questions & Answers

Using "mailx" command to read "to" and "cc" email addreses from input file

How to use "mailx" command to do e-mail reading the input file containing email address, where column 1 has name and column 2 containing “To” e-mail address and column 3 contains “cc” e-mail address to include with same email. Sample input file, email.txt Below is an sample code where... (2 Replies)
Discussion started by: asjaiswal
2 Replies

4. Solaris

The slices "usr", "opt", "tmp" disappeared!!! Help please.

The system don't boot. on the screen appears following: press enter to maintenance (or type CTRL-D to continue)...I checked with format command. ... the slices "0-root","1-swap","2-backup" exist. ...the slises "3-var","6-usr" -unassigned. :( (16 Replies)
Discussion started by: wolfgang
16 Replies

5. Shell Programming and Scripting

how to use "cut" or "awk" or "sed" to remove a string

logs: "/home/abc/public_html/index.php" "/home/abc/public_html/index.php" "/home/xyz/public_html/index.php" "/home/xyz/public_html/index.php" "/home/xyz/public_html/index.php" how to use "cut" or "awk" or "sed" to get the following result: abc abc xyz xyz xyz (8 Replies)
Discussion started by: timmywong
8 Replies

6. Shell Programming and Scripting

awk command to replace ";" with "|" and ""|" at diferent places in line of file

Hi, I have line in input file as below: 3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL My expected output for line in the file must be : "1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL" Can someone... (7 Replies)
Discussion started by: shis100
7 Replies

7. Shell Programming and Scripting

ps -ef | grep "string1" "string2" " "string3"

Hi all, can any one suggest me the script to grep multiple strings from ps -ef pls correct the below script . its not working/ i want to print OK if all the below process are running in my solaris system. else i want to print NOT OK. bash-3.00$ ps -ef | grep blu lscpusr 48 42 ... (11 Replies)
Discussion started by: steve2216
11 Replies

8. Shell Programming and Scripting

cat $como_file | awk /^~/'{print $1","$2","$3","$4}' | sed -e 's/~//g'

hi All, cat file_name | awk /^~/'{print $1","$2","$3","$4}' | sed -e 's/~//g' Can this be done by using sed or awk alone (4 Replies)
Discussion started by: harshakusam
4 Replies

9. UNIX for Dummies Questions & Answers

Explain the line "mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`"

Hi Friends, Can any of you explain me about the below line of code? mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'` Im not able to understand, what exactly it is doing :confused: Any help would be useful for me. Lokesha (4 Replies)
Discussion started by: Lokesha
4 Replies
Login or Register to Ask a Question