mk_dir_radios.pl

来自「This a framework to test new ideas in tr」· PL 代码 · 共 30 行

#!/usr/bin/perl -w
# mkdirreadme - a very simple document-extractor for subdirs..
#
# 04/03/08 - ineiti - imported from mk_dir_modules.pl and adjusted for radios

if ( $#ARGV < 0 ){
  die "Give the directory name as argument"
}

$dirs = `ls $ARGV[0]`;
$dirs =~ s/\n/ /g;
foreach $dir ( `find $dirs -type d -maxdepth 0 | grep -v CVS` ){
  chomp( $dir );
  if ( -e "$dir/README" ){
    getDescription( $dir );
  }
}

# Extracts the documentation from the README-file
sub getDescription{
  my $d = shift;
  my $readme = `cat $d/README`;
  my ($name) = ( $readme =~ /(.*)/ );

  $readme =~ s/.*Description.*?\n.*?\n+(.*?)(\s*\n){2}.*/$1/s;
  print $name . "\n" . "=" x length( $name ) . "\n\n";
  print $readme, "\n" x 3;
  return;
}