Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl Directory List Help
Top Forums Shell Programming and Scripting Perl Directory List Help Post 302614665 by durden_tyler on Wednesday 28th of March 2012 04:54:40 PM
Old 03-28-2012
Quote:
Originally Posted by Temphas
I am currently trying to find all files with extensions .gif .jpg .png .wav and .au in a current directory and count them.
I am trying to count them based on there extension only.
#!/usr/bin/perl
$gif =`ls *.gif | uniq -cf 1`;
$jpg =`ls *.jpg | uniq -cf 1`;
$png =`ls *.png | uniq -cf 1`;
$wav =`ls *.wav | uniq -cf 1`;
$au =`ls *.au | uniq -cf 1`;
print "$gif $jpg $png $wav $au";

This is what I currently got and it is not doing what I want it to at all. It locates all the image files but doesnt print just there extension....
Code:
$
$ ls -1 *.gif *.jpg *.png *.wav *.au
file1.au
file1.gif
file1.jpg
file1.png
file1.wav
file2.au
file2.gif
file2.jpg
file2.png
file3.gif
file3.png
file4.png
$
$
$ perl -le 'for (glob "*.gif *.jpg *.png *.wav *.au"){s/^.*\.//; $x{$_}++} END {while (($k, $v) = each %x){print "$k => $v"}}'
au => 2
png => 4
jpg => 2
gif => 3
wav => 1
$
$

tyler_durden
This User Gave Thanks to durden_tyler For This Post:
Temphas
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Directory list inside a directory

Hi Bosses! I have a directory name sih. that directory contains some more directories and some files. i just want to list (ls) the directories under this directory. What will be the command.I am using debian linux. Thanks bosses.will appreciate your help. sih (6 Replies)
Discussion started by: little_jhon
6 Replies

2. Shell Programming and Scripting

find list of files from a list and copy to a directory

I will be very grateful if someone can help me with bash shell script that does the following: I have a list of filenames: A01_155716 A05_155780 A07_155812 A09_155844 A11_155876 that are kept in different sub directories within my current directory. I want to find these files and copy... (3 Replies)
Discussion started by: manishabh
3 Replies

3. Shell Programming and Scripting

Convert perl qw list to text file list?

Does anyone have a good example? I am having trouble looping.. Thanks (1 Reply)
Discussion started by: mrlayance
1 Replies

4. Shell Programming and Scripting

Change Directory in Perl

Hi Can any one please support: From Windows, I am running perl script located in C:/scripts directory and need to run a command "ls | sort | uniq" on the files in D:/temp directory. #!c:\perl\bin\perl.exe $file_dir="D:\\temp"; $command1="cd"; $command2="ls | sort | uniq";... (2 Replies)
Discussion started by: sureshcisco
2 Replies

5. Shell Programming and Scripting

FTP from one directory to another using perl

Hi All I am stuck with a problem and i want your help, I have two directories dir1 and dir2 The files present in dir1 is a1,a2 a3 a4 What i want to is to FTP the files present in the dir1 to dir2 (with .txt extension at the end.) with the help of the Perl. The output expected is The... (12 Replies)
Discussion started by: parthmittal2007
12 Replies

6. Shell Programming and Scripting

Directory Search Perl

@scriptfiles=glob('*.txt'); foreach $file (glob('*.txt')) { open(my $fh, $file) or die("Unable to open '$file': $!"); while (my $line = <$fh>) { if ($line =~ m/(Apple|Orange|Guava)/i) { $Sheet->Cells($row,$col-1)->{'Value'} = $file; ... (1 Reply)
Discussion started by: rajkrishna89
1 Replies

7. Shell Programming and Scripting

Copy list of files from a keyword list to another directory

Hello, I have a folder with a massive amount of files, and I want to copy out a specific subset of the files to a new directory. I would like to use a text file with the filenames listed, but can't get it to work. The thing I'm hung up on is that the folder names in the path can and do have... (5 Replies)
Discussion started by: twjolson
5 Replies

8. Programming

Perl - How to empty a directory?

Hi Guys, i'm writing a perl script which whenever runs, should empty 3 pre-decided directories as first step and then the script has the logic to parse some other directories and copy the files inside those directories into these 3 directories. I've the logic already developed, just need to... (2 Replies)
Discussion started by: jhamaks
2 Replies

9. Shell Programming and Scripting

How to go to up directory from a given directory in Perl?

I have a Perl script that has a variable for a directory path and I want to define another variable that will navigate to up directory from the given directory path. This is the given directory path in Perl and this is the way the directory path is derived use FindBin; $apphome =... (0 Replies)
Discussion started by: cumeh1624
0 Replies

10. Shell Programming and Scripting

List files with date, create directory, move to the created directory

Hi all, i have a folder, with tons of files containing as following, on /my/folder/jobs/ some_name_2016-01-17-22-38-58_some name_0_0.zip.done some_name_2016-01-17-22-40-30_some name_0_0.zip.done some_name_2016-01-17-22-48-50_some name_0_0.zip.done and these can be lots of similar files,... (6 Replies)
Discussion started by: charli1
6 Replies

LEARN ABOUT OSX

img-png

img-png(n)																img-png(n)

__________________________________________________________________________________________________________________________________________________

NAME

       img-png - Img, Portable Network Graphics format (png)

SYNOPSIS

       package require Tk

       package require img::png  ?1.4?

       image create photo ?name? ?options?

_________________________________________________________________

DESCRIPTION

       The  package  img::png  is a sub-package of Img. It can be loaded as a part of the complete Img support, via package require Img, or on its
       own, via package require img::png.

       Like all packages of Img it does not provide new commands, but extends the existing Tk command image so that it supports  files	containing
       raster images in the Portable Network Graphics format (png). More specifically img::png extends Tk's photo image type.

       The  name  of  the new format handler is png.  This handler provides new additional configuration options. See section PNG OPTIONS for more
       detailed explanations.

       All of the above means that in a call like

       image create photo ?name? ?options?

       [1]    Image data in png format (options -data and -file) is detected automatically.

       [2]    The format name png is recognized by the option -format.	In addition the value for the option is treated as list  and  may  contain
	      any of the special options listed in section PNG OPTIONS.

PNG OPTIONS

       The  handler  provides no true options at all, but accepts pairs of keys and values when writing a PNG file. Each pair will be written as a
       named text chunk where the key provides the name of the chunk and the value its contents.  For example

	   png Author <name> Title <title> Description ...

TRANSPARENCY

       If you want to write images to disk which contain transparency information (e.g. PNG with alpha channel) you need at least Tk 8.3.

SEE ALSO

       img-bmp, img-dted, img-gif, img-ico, img-intro, img-jpeg, img-pcx, img-pixmap, img-png, img-ppm, img-ps, img-raw,  img-sgi,  img-sun,  img-
       tga, img-tiff, img-window, img-xbm, img-xpm

KEYWORDS

       image handling, png, tk

COPYRIGHT

       Copyright (c) 1995-2009 Jan Nijtmans <nijtmans@users.sourceforge.net>

Img									1.4								img-png(n)
All times are GMT -4. The time now is 07:36 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy