perl - How to print the names of the files counted? -


i new perl , have gotten first useful script work! enhance not understand how use arrays achieve goal. have read numerous articles , posts, not understand yet.

the script have working counts number of files in given directory of given extension , prints number out. print filenames .txt file in initial specified directory.

any advice or input appreciated! sure need use array achieve goal, not understand how feed counted file names it. able print out array list, need fillng array up! many thanks!

the script in current state:

#!usr/bin/perl use strict; use warnings; use diagnostics; use file::find;  print "\n\n"; print "this script start @ given directory and\nrecursively count files of given type\n\n\n"; print "-----------------------------------------------------------\n\n\n"; print "what directory start count?\n\ndirectory path: "; $dir = <stdin>; #directory begin search chomp $dir;  print "\nwhat file extension searching for?\n\nfile extension(.htm, .plx, .txt, etc.): "; $filext = <stdin>; #file extension we're searching chomp $filext;  $count = 0;   find(sub{$count++ if $file::find::name =~ /$filext$/}, $dir);         if ($count > 0){      print "\n$count files counted, \n"; #display number of files counted given file extension in given directory       }       else {      print "couldn't find files count.\n"; #if no files of given type found in given directory      }

update:

thank wes. see how works , thank taking time respond.

for interested, here final code: 

#!usr/bin/perl use strict; use warnings; use diagnostics; use file::find;  print "\n\n"; print "this script start @ given directory and\nrecursively count files of given type\n\n\n"; print "-----------------------------------------------------------\n\n\n"; print "what directory start count?\n\ndirectory path: "; $dir = <stdin>; #directory begin search chomp $dir;  print "\nwhat file extension searching for?\n\nfile extension(.htm, .plx, .txt, etc.): "; $filext = <stdin>; #file extension we're searching chomp $filext;  $count = 0; @files; find(sub{     if ($file::find::name =~ /$filext$/) {         push @files, $file::find::name;         $count++;     } }, $dir);         if ($count > 0){      print "\n\n-----------------------------------------------------------\n\n\n";      print "\n$count files counted: \n\n"; #display number of files counted given file extension in given directory      foreach (@files){          print "$_\n";      }        }       else {      print "couldn't find files count.\n"; #if no files of given type found in given directory      }

that anonymous sub pass find can execute more 1 statement, normal sub.

my @files; find(sub{     if ($file::find::name =~ /$filext$/) {         push @files, $file::find::name;         $count++;     } }, $dir);

you can check size of array this: my $count = scalar @files; instead of keeping separate count


Comments

Post a Comment

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

running rails generate controller foo home results in: class foocontroller < application controller def home end end (there's nothing on line in actual file, blank line) is there purpose blank line? it's common use newline indicate end of line, last line. many editors (like vi, use) add in newline silently. consensus text files (especially in unix world) should end in newline, , there have been problems historically if wasn't present. why should text files end newline? the tool used count lines in file "wc" counts newlines in file, without trailing newline show 3 instead of 4. it improves readability of templates used in generator. consider: https://github.com/rails/rails/blob/master/railties/lib/rails/generators/rails/controller/templates/controller.rb to remove trailing newline, template have last line of: end<% end -%> instead of: end <% end -%> that seems less readable me. the discussion below refers
Read more

keyboard - Smiles and long press feature in Android -

i've created android keyboard. how add features inserting smilies, , using long keypresses display symbols? to create long-press behavior allows select several options pop-up menu, follow guide (specifically pop-up menu section): http://developer.android.com/guide/topics/ui/menus.html smileys (also known emoticons) combination of keys, understood programs , parsed same way. have do, when clicks smiley face on keyboard, simulate pressing of key combination matching emoticon. example, when clicks smiley, should simulate key presses ':' , ')' :). here's list of emoticons: http://en.wikipedia.org/wiki/list_of_emoticons
Read more

node.js - Bad Request - node js ajax post -

i'm using express 3.0 , node v0.11.0. have button submits form , i'm using ajax post data json object node server. client code is: $('#contact').submit(function(e) { console.log('submit called'); var formdata = json.stringify($('form').serializeobject()); console.log(formdata); $.ajax({ url: "http://localhost:3000/savedata/", type: "post", datatype: 'json', data: {objectdata: formdata}, contenttype: "application/json", complete: function() { console.log('process complete'); }, success: function(data) { console.log('process sucess'); }, error: function() { console.log('process error'); }, }); return false; }); then on server: var express = require('express'); var app = express(); app.set('views', __dirname + '/views'); app.set('view engine', 'jade'); app.use(express.bodyparser());
Read more