Changeset 2514 in ProjectBuilder

Timestamp:

Apr 2, 2020, 2:44:50 AM (5 years ago)

Author:

Bruno Cornec

Message:

adds function pb_path_nbfiles to Base

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -40 +40 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_get_osrelease pb_check_requirements pb_check_req pb_path_expand pb_exit $pbdebug $pbLOG $pbdisplaytype $pblocale);
+our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_get_osrelease pb_check_requirements pb_check_req pb_path_expand pb_path_nbfiles pb_exit $pbdebug $pbLOG $pbdisplaytype $pblocale);
 
 =pod
@@ -593 +593 @@
 }
 
+=item B<pb_path_nbfiles>
+
+Return the number of files in a directory
+
+=cut
+
+sub pb_path_nbfiles {
+
+my $path = shift;
+my $nb = 0;
+
+opendir(DIR,$path) || confess "Unable to open directory $path: $!";
+foreach my $f (readdir(DIR)) {
+    next if ($f =~ /^\.[\.]*$/);
+    $nb++;
+}
+closedir(DIR);
+
+return($nb);
+}
+
 =back