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

Όνομα του αρχείου που χρησιμοποίησα: script.pl (γλώσσα προγραμματισμού: perl - το σενάριο προέρχεται από τον χρήστη fr:Utilisateur:Darkdadaah).

#!C:\\Perl\\bin\\perl
#####################################
# 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 ;