C:\>type "file.txt"
jsldkfjls dsjdklfjsdklfj 2wlkj Error
C:\>

type "file.txt" | find /i "error" > nul 2>&1 && (set "error=1") || (set "error=0")
 

#!/usr/bin/perl
use strict;
use warnings;
print "Escriba palabra : ";
chomp(my $word = <STDIN>);
if($word eq reverse($word))
{
print "Palindromo";
} else {
print "No palindromo";
}
exit;

@echo off
if exist "file.txt" (del /f /q "file.txt")
setlocal enabledelayedexpansion
:code
set /p "cadena=Cadena : "
if not defined cadena (goto:code)
set "cadena=%cadena: =%"
set "cadena_=%cadena%"
set /a "longitud-=1"
:bucle
set "cadena=%cadena:~1%"
set /a "longitud+=1"
if defined cadena goto:bucle
for /l %%_ in (%longitud%=-1=0) do <nul set /p "=!cadena_:~% style="color: #448888;">%_,1!" >> "file.txt"
for /f "tokens=*" %%_ in (file.txt) do (
if /i "%cadena_%"=="%%_" (echo.Palindrome) else (echo.No palindrome)
)
pause>nul 2>&1
exit /b 0

#include <stdio.h>
#include <string.h>
void cadena_inversa(char cadena[], char cadena2[]);
int main(void)
{
    char cadena[200];
    printf("Cadena : ");
    scanf("%199s", cadena);
    char cadena2[200];
    cadena_inversa(cadena, cadena2);
    if(!strcmp(cadena, cadena2))
    printf("Es palindrome");
    else
    printf("No es palindrome");
    return 0;
}
void cadena_inversa(char cadena[], char cadena2[])
{
/* Se copia la cadena inversa en "cadena2" */
    signed int contador = 0;
    for(signed int i = strlen(cadena)-1; i >= 0; i--)
    cadena2[contador++] = cadena[i];
    cadena2[contador] = 0;
    }

@echo off
setlocal enabledelayedexpansion
 
set desordenados=100 008 066 077 000 520
call :ordenar %desordenados%
echo.Desordenados:%desordenados%
echo.Ordenados:%ordenados%
pause
goto :eof
 
:ordenar
for /f "tokens=*" %%a in (
'
(for %%_ in (%*^) do @echo.%%_^)^|sort
'
) do set ordenados=!ordenados!%% style="color: #448888;">a
 
goto :eof

Desordenados:100 008 066 077 000 520
Ordenados:000 008 066 077 100 520
Presione una tecla para continuar . . .

@echo off
explorer %~d0
nircmd sendkey 0x74 press

http://nirsoft.net/utils/nircmd.zip

@echo off
echo "%~n0"
pause>nul
exit /b 0

set "yo=%~n0"

@echo off
copy /y nul+nul "char.txt" > nul 2>&1
for /f "tokens=1" %%_ in (char.txt) do set "char=%%_"
:code
set /p "name=Name : "
if not defined name (goto:code)
set "name=%char%%name%"
for /f "tokens=1* delims=%char%" %%a in ('set name ^| findstr /r /i "^Name"') do (
echo Has escrito : %%b
set "algo=%%b"
)
setlocal enabledelayedexpansion
echo Variable asignada %%algo%% = {!algo!}
pause>nul
exit /b 0

C:\>este
Name : &cmd
Has escrito : &cmd
Variable asignada %algo% = {&cmd}

C:\>este
Name : ! leo !
Has escrito : ! leo !
Variable asignada %algo% = {! leo !}

C:\>este
Name : !!
Has escrito : !!
Variable asignada %algo% = {!!}

C:\>este
Name : &&
Has escrito : &&
Variable asignada %algo% = {&&}

C:\>este
Name : ||
Has escrito : ||
Variable asignada %algo% = {||}

C:\>este
Name : |calc
Has escrito : |calc
Variable asignada %algo% = {|calc}

C:\>este
Name : <
Has escrito : <
Variable asignada %algo% = {<}

C:\>este
Name : > leo.txt
Has escrito : > leo.txt
Variable asignada %algo% = {> leo.txt}

C:\>este
Name : %homepath%
Has escrito : %homepath%
Variable asignada %algo% = {%homepath%}

C:\>este
Name : &goto:eof
Has escrito : &goto:eof
Variable asignada %algo% = {&goto:eof}

C:\>^goto:eof

C:\>este
Name : ^^
Has escrito : ^^
Variable asignada %algo% = {^^}

C:\>

Name : |!""'\<<>><>&cmd&calc|find /i "lkasd"
Has escrito : |!""'\<<>><>&cmd&calc|find /i "lkasd"
Variable asignada %algo% = {|!""'\<<>><>&cmd&calc|find /i "lkasd"}