ª" />
![]() |
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí. |
![]() |
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
|
|
|
||||
|
ayudar xml
Grupo, Código:
$ cat 2233
12236 ID2
12239 ID3
Please guide me to construct the following XML from the above input.
<Comp>
<main>
<hlp fS="12236" eS="12237">
<std no="2233" />
<id="ID2"/>
</hlp>
<hlp fS="12239" eS="12240">
<std no="2233" />
<id="ID3"/>
</hlp>
</main>
</Comp>
** eS is +1 of fS value
** std no is the file name
|
|
||||
|
¿Qué has intentado, que son las partes que tengan problemas con el? ¿Tiene usted una preferencia por una aplicación idioma?
(¿No es un poco moronic a tener un valor de campo que siempre es otro valor del campo más uno?) |
|
||||
|
perl
tratar a continuación de alta perl script decir, la secuencia de comandos de nombre es a.pl, por debajo de comando puede abordar su problema. Cita:
Código:
format STDOUT_TOP =
<Comp>
<main>
.
format STDOUT =
<hlp fs="@<<<<" es="@<<<<">
$text1 $text2
<std no="@<<<"/>
$text3
<id="@<<"/>
$text4
</hlp>
.
$file=shift;
open(FH,"<$file") or die "Can not open file";
while(<FH>){
@arr=split(" ",$_);
$text1=$arr[0];
$text2=$arr[0]+1;
$text3=$file;
$text4=$arr[1];
write;
}
print " </main>\n";
print "</Comp>\n";
close(FH);
|
|
||||
|
Era, gracias por responder. He intentado sólo una entrada en el archivo de entrada, algo como esto Código:
....
FILE=$1
fS=$(awk '{print $1}' $FILE)
((eS=fS+1))
echo "<Comp>" >> myxml
...
...
Pero yo no soy capaz de hacer el mismo número de entradas, si en el archivo de entrada en más de 1. Por favor, ayuda. |
|
||||
|
cfajohnson, que funcionó perfectamente bien para mí. Gracias.
|
![]() |
| Marcadores |
| Etiquetas |
| perl, perl cambio, turno, cambio de perl |
| Herramientas de hilo | Buscar en este Hilo |
| Modos de visualización | Vota a este hilo |
|
|