ήθελα να ρωτήσω, αν κάποιος μπορεί να με βοηθήσει, πώς μπορώ να ανοίξω ένα .tex αρχείο με perl. Ό,τι βρίσκω αφορά .txt files. Επιπλέον είμαι αρχάρια στον προγραμματισμό. Θέλω να ανοίξω το αρχείο και μετά να βάλω σε τυχαία σειρά 30 (αριθμημένες) προτάσεις που έχω μέσα. Βρήκα μια συνάρτηση, τη random permutation για το ανακάτεμα, αλλά δεν μπορώ να ανοίξω το αρχείο. Καταρχάς το .tex και το .pl πρέπει να είναι σωσμένα στον ίδιο φάκελο ε;
'Εχω βρει αυτόν τον κώδικα για το random permutation:
- Κώδικας: Επιλογή όλων
#!/usr/bin/perl -w
##
# This program will generate a random permutation of the integers
# { 1, ..., n } for a user specified integer n. We assume that
# user inputs a positive integer (if it's negative then we'll get
# an error as the program executes).
#
# We use the Markov chain Monte Carlo method for generating the
# random permuation.
#
use strict;
my ($n, @nums, $iters, $i, $k, );
srand; # seed the random number generator
print "\nEnter the length of the permutation: ";
chomp( $n = <STDIN> );
@nums = 1 .. $n; # initialize with the identity permutation
$iters = 12 * $n**3 * log($n) + 1;
for ( $i = 1; $i <= $iters; $i++)
{
if (rand(1) <= .5) # Flip a coin, and if heads swap
# a random adjacent pair of elements.
{
$k = int( rand($n-1) );
( $nums [$k], $nums [$k + 1] ) = ($nums [$k + 1], $nums [$k] );
}
}
print "\n@nums \n";
και για άνοιγμα αρχείου και εκτύπωσή του αυτόν τον κώδικα
- Κώδικας: Επιλογή όλων
open (CHECKBOOK, "checkbook.txt");
while ($record = <CHECKBOOK>) {
print $record;
}
close(CHECKBOOK);
Για αρχή θέλω να εξοικειωθώ πρώτα και μετά να αρχίσω να τα συνδυάζω. Οπότε και τα δοκιμάζω σε 2 χωριστά προγράμματα για αρχή. Κυρίως με απασχολεί το 2ο και ειδικά αν κάτι αλλάζει όταν θέλω να τρέξω latex, μιας και το πρώτο το βρήκα ως έχει και είναι όλα οκ.
Ευχαριστώ πολύ
