Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl find::file can I sort the out put
Top Forums Shell Programming and Scripting Perl find::file can I sort the out put Post 302099230 by cbkihong on Sunday 10th of December 2006 11:18:31 PM
Old 12-11-2006
Just make sure you capture the size of each file you want (together with the filename) in the wanted function and dump them to an array. Then you can post-process the list using sort().

Here is an example:
Code:
#!/usr/bin/perl -w

use File::Find;

my @files = ();
find(sub {
	if ($_ =~ /\.mp3$/) {
		push(@files, [
			$File::Find::dir . "/$_", 
			(stat($_))[7]
		]);
	}
}, "/home/bernardchan/scratch");
map {
	print "$$_[1]\t\t$$_[0]\n"
} sort {
	$$a[1] <=> $$b[1]
} @files;

Sample output:
Code:
3583250         /home/bernardchan/scratch/music/Heart - Alone.mp3
3790439         /home/bernardchan/scratch/music/S Club 7 - Dancing Queen.mp3
4003132         /home/bernardchan/scratch/music/bwv541.mp3
4272925         /home/bernardchan/scratch/music/toccata+fugue-bwv565.mp3
4276686         /home/bernardchan/scratch/music/toccata-bwv540.mp3
4434960         /home/bernardchan/scratch/music/Barry Manilow - The Old Songs.mp3
5840063         /home/bernardchan/scratch/music/j.s.bach-fantasia+fuga-bwv542.mp3

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Sort file in perl

Hi, I have an entry file for a perl script from which I need to remove duplicate entry. For example: one:two:three one:four:five two:one:three must become : one:two:three two:one:three The duplicate entry is only the first field. I try many options of sort system command but don't... (4 Replies)
Discussion started by: annececile
4 Replies

2. Shell Programming and Scripting

sort a file by date using perl

Hello, do any body help me to sort a file by date using perl? thanks in advance Esham (4 Replies)
Discussion started by: esham
4 Replies

3. Shell Programming and Scripting

Perl Sort on Text File

Hi, I have a file of names and I want perl to do a sort on this file. How can I sort this list of names using perl? I'm thinking of a command like: @sorted = sort { lc($a) cmp lc($b) } @not_sorted # alphabetical sort The only thing I'm sort of unsure of is, how would I get the name in my... (6 Replies)
Discussion started by: eltinator
6 Replies

4. Shell Programming and Scripting

awk -- sort out the out put file

Hi, using awk /sed, I need to sort out the input file. here is the example input file=== Name= shashi | country= india | region = asia | dept= ww Name= jon | region = asia | dept= xx Name=sam | dept= ww Name= anthony | country=england | dept= xx Name= sumo | country= china output... (3 Replies)
Discussion started by: hegdeshashi
3 Replies

5. Shell Programming and Scripting

Perl script to sort an Excel file

Hello! I need to sort a file that is partly in English partly in Bulgarian. The original file is an Excel file but I converted it to a tab-delimited text file. The encoding of the tab delimited file is UTF-8. To sort the text, the script should test every line of the text file to see if... (9 Replies)
Discussion started by: degoor
9 Replies

6. Shell Programming and Scripting

Perl XML, find matching condition and grep lines and put the lines somewhere else

Hi, my xml files looks something like this <Instance Name="New York"> <Description></Description> <Instance Name="A"> <Description></Description> <PropertyValue Key="false" Name="Building A" /> </Instance> <Instance Name="B"> ... (4 Replies)
Discussion started by: tententen
4 Replies

7. Shell Programming and Scripting

Perl SFTP, to get, sort and process every file.

Hi All, I'm niks, and i'm a newbie here and newbie also in perl sorry, i'm just wondering how can i get the file from the other hostname using sftp? then after i get it i'm going to sort the file and process it one by one. sorry because i'm a newbie. Thanks, -niks (4 Replies)
Discussion started by: nikki1200
4 Replies

8. Homework & Coursework Questions

Shell script calling Perl function, sort and find data, write to new files

Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted! 1. The problem statement, all variables and given/known data: I must write a shell script that calls two external Perl functions--one of which sorts the data in a file, and... (6 Replies)
Discussion started by: kowit010
6 Replies

9. Solaris

How to sort df -h out put :

Hello every one , I am just trying to sort df -h out in a particular order to differentiate SAN disks and local disks .. does any body have any script or any useful command ?? thanks in advance .. (8 Replies)
Discussion started by: new2uniks
8 Replies

10. Shell Programming and Scripting

Perl program for find one entry and put in different file

Hi I have a file name1 xxxxx name1 xxxxx name1 yyyyy name 1 zzzzz name1 Uniprot Id 1234 name2 sssss name2 eeeee name2 bengamine name2 Uniprot Id 3456 ......................and so on I have to capture Uniprot IDs only in a separate file so that output contain only ... (20 Replies)
Discussion started by: manigrover
20 Replies

LEARN ABOUT DEBIAN

normalize-mp3

NORMALIZE-MP3(1)					      General Commands Manual						  NORMALIZE-MP3(1)

NAME

       normalize-mp3 - adjust levels of mp3 or ogg files by running normalize-audio(1), then re-encoding

SYNOPSIS

	normalize-mp3 [OPTION]... [FILE]...
	normalize-ogg [OPTION]... [FILE]...

DESCRIPTION

       Normalize  volume  of  mp3  or  ogg  files  by decoding, running normalize, and re-encoding.  This requires as much extra disk space as the
       largest mp3 or ogg file, decoded.  Note that for batch and mix mode, all files must be decoded, so there must be enough disk space for  the
       decoded copies of all specified mp3 and ogg files.

       --ogg  Convert files to OGG, regardless of original format

       --mp3  Convert files to MP3, regardless of original format

       --bitrate BR
	      Set bitrate of re-encoded file (default 128)

       --tmpdir TMP
	      Put temporary WAV files in temp directory TMP

       --notags
	      Do not copy ID3 or OGG tags to the output file

       The  following  four options may be used to set the encoder and decoder commands for mp3 and ogg vorbis.  %m is expanded to the name of the
       mp3 or vorbis file, %w expands to the name of the temporary WAV file, and %b expands to the bitrate, as specified by the --bitrate  option.
       Run normalize-mp3 with no arguments to see the default values.

       --mp3encode=X
	      mp3 encoder

       --mp3decode=X
	      mp3 decoder

       --oggencode=X
	      ogg vorbis encoder

       --oggdecode=X
	      ogg vorbis decoder

       -h     Display this help and exit.

       -V     Display version information and exit.

       These arguments are passed as arguments to normalize-audio.
	      Run "normalize-audio --help" for more info.

       -a AMP

       -g ADJ

       -n

       -T THR

       -b

       -m

       -v

       -q

       REPORTING BUGS
	      Report bugs to <chrisvaill@gmail.com>.

SEE ALSO

       The normalize-audio(1) Man page

NOTES

       This page was provided by Eduardo Macan <macan@debian.org>

								  September 2001						  NORMALIZE-MP3(1)
All times are GMT -4. The time now is 04:13 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy