[Programación] Argumentos para generar "todos en uno" en perl...

[Horacio Castellini]

Holas...
	En C uno puede generar el concepto "todo en uno" simplemente analizando
el campo $0 en bash o argv[0] en C, es decir a modo de ejemplo (como es
el caso de mv, cp, rm, etc...)

#include<stdio.h>
#include<stdlib.h>
#include <string.h>
.......
int main(int c,char* argv[])
{
...............
	if(!strcmp(argv[0],"mv")){
         ...............
	}
	if(!strcmp(argv[0],"cp")){
	....................
	}
	if(!strcmp(argv[0],"rm")){
	..................
	}
.........................
}

luego si lo compilo como "cc caca.c -o caca" entonces ahora uso un
hard-link...

ln caca mv
ln caca cp
ln caca rm

entonces tengo varios comandos en un solo código...

Se entiende lo que busco...? esto como se lo puede hacer en perl..?
(sin apelar al bash... claro...)

Saludos Horacio.


	

	
		
___________________________________________________________ 
1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 
http://correo.yahoo.com.ar