Χρήστης:Lou bot/pagefromfile/eo:ρήματα/σενάριο

Το αρχείο είναι γραμμένο σε γλώσσα perl και προέρχεται από τον χρήστη fr:Utilisateur:Darkdadaah.

#!usr/bin/perl -w
#####################################
# Script pour créer un fichier
# d'articles de flexions simples
# à créer avec pageFromFile.py
#
# Auteur : Darkdadaah
#####################################
use strict ;
use utf8 ;

my @radicaux ;
my $patrons ;
my $r = 0 ;
my $p = 0 ;

# Chargement des radicaux
open( RAD, "radicaux" ) || die( "Arg radicaux : $!\n" ) ;
while(<RAD>)
{
  chomp;
  unless (/=/)
    {
      push @radicaux, $_ ;
      $r++ ;
    }
}
close RAD ;

# Chargement du patron à dupliquer
open(PAT, "patrons") || die("Arg patrons : $!\n") ;
while(<PAT>)
  {
    $patrons .= $_ ;
    if ( /0000/ ) { $p++ ; } ;
  }
close PAT ;

# Création du fichier contenant la liste des flexions
open OUT, ">flexions" || die( "Arg flexions : $!\n" ) ;
my $rempli = "";
foreach my $radical ( @radicaux )
  {
    $rempli = $patrons ;
    $rempli =~ s/__RAD__/$radical/g ;
    print OUT $rempli;
  }

close OUT ;

my $n = $r*$p ;

print "Nombre d'articles à créer : $n ($r radicaux x $p patrons)\n";