Kaip skambinti Mentor AMPLE nuo perl?

[bageduke]

Ar kas nors turi ką nors iš šios idėjos?Bandau scenarijų userware, kurie gali daryti failo manipuliacijas su perl ir išdėstymo uždavinys Mentor IC stoties.

 

[sowmya005]

I dont know ABT MENTOR didelis.
BET U Can Do FILE MANIPULIACIJOS kaip parodyta PERL PROGRAMA žemiau.
Tai faktiškai rašyti į failą.TRY Jei tai veikia

#! / usr / bin / perl-w
# paskirtį
# rašo, kad failas
naudoti Getopt:: Ilgi
# Nustatyti komandą priimti Filename
my $ ret = GetOptions ( "I | Input: s", "O | Output: s");
my $ input = $ opt_i | | die "Usage: $ O-i-o filename Input Output filename \ n";
my $ output = $ opt_o | | die "Usage: $ O-i-o filename Input Output filename \ n";
# opent faile
open (INPUT, "$ input") | | die "Negaliu atidaryti failo $ input: $! \ n";
# atidaryti išvesties failą
open (OUTPUT, "> $ output") | | die "Negaliu atidaryti failo $ output: $! \ n";
# pradėti skaityti iš failo įvedimo
while (<input>)
(
pjaustyti;
# rašyti produkcija Filename
Spausdinti produkcija "Eilutė $. = <$ _> \ n";
)
# uždaryti failai
Close (input);
Close (output);