Joan: /* Perl */

2018-10-02T15:37:55Z

Perl

Pàgina nova

=Introducció=
Llegirem el fitxer de text '''ara_mateix.txt'''
<pre>
Ara mateix,
enfilo aquesta agulla amb el fil d'un propòsit que no dic,
i em poso a apedaçar.
Cap dels prodigis que anunciaven taumaturgs insignes
no s'ha complert.
I els anys passen de pressa,
de res a poc, i sempre amb vent de cara.
</pre>
utilitzant diferents llenguatges de script interpretats. Aquests normalment ens permetrant treballar de forma interactiva amb la consola, o bé executar totes les comandes en bloc cridant a un script que contingui totes les ordres.
=Bash=
'''Bash''' ja està instal.lat per defecte en els sistemes Linux.
Amb Bash podem utilitzar qualsevol de les comandes pròpies del sistema:
<pre>
$ cat ara_mateix.txt
Ara mateix,
enfilo aquesta agulla amb el fil d'un propòsit que no dic,
...
</pre>
<pre>
$ man cat

CAT(1) User Commands CAT(1)

NAME
cat - concatenate files and print on the standard output

SYNOPSIS
cat [OPTION]... [FILE]...
...
</pre>

I si volem llegir el fitxer línia a línia, ho podem fer com a mínim d'aquestes tres maneres:

fitxer '''ara_mateix.sh''':
<pre>
#!/bin/bash

FILENAME=ara_mateix.txt
while read line
do
echo $line
done < $FILENAME
</pre>
Donem permisos d'execució i executem el script:
<pre>
$ sudo chmod a+x ara_mateix.sh
$ ./ara_mateix.sh
Ara mateix,
enfilo aquesta agulla amb el fil d'un propòsit que no dic,
i em poso a apedaçar.
Cap dels prodigis que anunciaven taumaturgs insignes
no s'ha complert.
I els anys passen de pressa,
de res a poc, i sempre amb vent de cara.
</pre>

Hi ha altres maneres de fer-ho:

'''ara_mateix2.sh''':
<pre>
#!/bin/bash
cat ara_mateix.txt | while read a
do
echo $a
done
</pre>
'''ara_mateix3.sh''':
<pre>
#!/bin/bash
for a in `cat ara_mateix.txt`
do
echo $a
done
</pre>

=Python=
*http://es.wikipedia.org/wiki/Python
Evidentment, per utilitzar Python has de tenir instal.lat aquest llenguatge (tant per a Linux com Windows)
*http://chuwiki.chuidiang.org/index.php?title=Leer_y_escribir_ficheros_en_python
Per executar comandes '''python''' invoquem al seu intèrpret de comandes:
<pre>
$ python
Python 2.7.3 (default, Aug 1 2012, 05:16:07)
[GCC 4.6.3] on linux2
Type "help", "copyright", "credits" or "license" for more information.
>>>
</pre>
i ara ja podem introduir les comandes adequades:
<pre>
>>> f = open("ara_mateix.txt")
>>> f
<open file 'ara_mateix.txt', mode 'r' at 0xb7323f40>
>>> f.read()
"Ara mateix,\nenfilo aquesta agulla amb el fil d'un prop\xc3\xb2sit que no dic,\ni em poso a apeda\xc3\xa7ar.\nCap dels prodigis que anunciaven taumaturgs insignes\nno s'ha complert.\nI els anys passen de pressa,\nde res a poc, i sempre amb vent de cara.\n\n"
>>> f.close()
>>> quit()
</pre>

Però és millor utilitzar un script '''Python''' (fitxer amb extensió .py que conté comandes python i executar totes les instruccions de forma desatesa:

fitxer '''ara_mateix.py''':
<pre>
import sys
fitxer = open('ara_mateix.txt','r')
for linia in fitxer:
print linia
</pre>
<pre>
$ python ara_mateix.py
Ara mateix,
enfilo aquesta agulla amb el fil d'un propòsit que no dic,
i em poso a apedaçar.
Cap dels prodigis que anunciaven taumaturgs insignes
no s'ha complert.
I els anys passen de pressa,
de res a poc, i sempre amb vent de cara.
</pre>

=Perl=
*http://es.wikipedia.org/wiki/Perl
'''ara_mateix.pl''':
<pre>
# Leer un fichero de texto
my $filename = 'ara_mateix.txt';
open INFILE,$filename;
my $linia;
while ( $linia = <INFILE>) {
chomp($linia);
# Incluir aquí debajo el código para procesar la línea
print $linia . "\n";
}
close INFILE;
</pre>
millor:
<pre>
# Leer un fichero de texto
my $filename = 'ara_mateix.txt';
open INFILE,$filename;
my $linia;
while ( $linia = <INFILE>) {
print $linia;
}
close INFILE;
</pre>

<pre>
$ perl ara_mateix.pl
Ara mateix,
enfilo aquesta agulla amb el fil d'un propòsit que no dic,
...
</pre>

=Javascript=
*http://www-archive.mozilla.org/js/js-file-object.html
*http://www.html5rocks.com/en/tutorials/file/dndfiles/
I amb Javascript també ho podem fer això de llegir un fitxer de text? En teoria si... però no és fàcil.
*https://developer.mozilla.org/en-US/docs/SpiderMonkey/File_object
Com es comenta en l'enllaç:
<pre>
Warning: This section describes the File component of the SpiderMonkey JavaScript interpreter.
File is non-standard, not generally compiled into distributions, is a potential source of
huge security holes, and not well tested.
</pre>
Utilitzem el SpiderMonkey com a intèrpret de comandes. També l'utilitzarem en la següent pràctica.

El fitxer que volem testejar és el script '''ara_mateix.js''':
<pre>
var data;
var file = new File("/home/joan/M06_WEB/comparar_scripts/ara_mateix.txt");
file.open("read", "text");
data = file.readln();
file.close();
</pre>
i l'executem però no funciona:
<pre>
~/M06_WEC/js-1.8.5/js/src$ ./js /home/joan/M06_WEC/comparar_scripts/ara_mateix.js
/home/joan/M06_WEC/comparar_scripts/ara_mateix.js:2: ReferenceError: File is not defined
</pre>
Es queixa de que no troba l'objecte '''File'''. Per tal de què conegui què és un objecte ''File'', tal com es comenta en l'enllaç, hauríem de compilar el SpiderMonkey amb aquesta compatibilitat:
<pre>
$ make -f Makefile.ref JS_HAS_FILE_OBJECT=1
</pre>
però de totes maneres no compila... s'hauria d'estudiar amb més deteniment i trobar una solució que de totes maneres no seria compatible amb totes les plataformes.

'''Nota'''. En entorns Windows possiblement llegir un fitxer de text amb Javascript sigui més fàcil:
<pre>
Set oFSO = CreateObject("Scripting.FileSystemObject")
...
</pre>

=PHP=
Amb PHP es pot accedir a llegir un fitxer, però estem parlant de fitxers en el cantó del servidor, no del client. En aquest cas utilitzarem el PHP en línia de comandes, que evidentment és la manera no-habitual de treballar amb PHP. Amb això es vol recalcar que PHP és un llenguatge de script que no té perquè estar associat a un servidor web i un navegador web. Els usuaris de Windows hauran d'esbrinar quina possibilitat tenen d'utilitzar PHP en línia de comandes. En cas de què no fos possible o fos complicat, executaran el codi en un entorn web.
<pre>
$ sudo apt-get install php5-common php5-cli
</pre>
<pre>
<?php
// archivo txt
$filas=file('ara_mateix.txt');
// iniciamos contador y la fila a cero
$i=0;
while($filas[$i]!=NULL){
echo $filas[$i];
$i++;
}
?>
</pre>
I executem el codi en línia de comandes:
<pre>
$ php ara_mateix.php
</pre>
Fixem-nos que no cal tenir instal.lat un servidor web. L'existència del llenguatge PHP és independent de què el servidor web Apache estigui present.

=Altres=
*VBScript (Windows)
<pre>
Set oFSO = CreateObject("Scripting.FileSystemObject")
...
</pre>
*JScript (Windows)
<pre>
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
</pre>
*Actionscript
És un llenguatge que es va fer popular per fer pel.lícules de Flash incrustades a la web, i que també es pot utlitzar per accedir al ''filesystem''.
*https://en.wikipedia.org/wiki/ActionScript

*Batch.
TODO usuaris de Windows

{{Autor}}, setembre 2018
[[Categoria: Institut Jaume Balmes]]
[[Categoria: Assignatura DAW-M06-WEC]]

Comparativa de llenguatges de script. Llegir un fitxer - Historial de revisió

Joan: /* Perl */