nov 5

Kommentek eltavolitasa HTML kodbol

Category: PHP

Ez egy egyszeru funkcio, amely parameterben egy szoveget var. Kimenetkepp visszaadja a szoveget ugy, hogy kitorli belole a HTML kommenteket.
„<!– ….. –>”

<?php
function remove_comments($s) {
  return preg_replace('/<!--(.+?)-->/s', '', $s);
}
Comments are off for this post

máj 8

Tomb atirasa „array” formaba

Category: PHP
<?php
$testarr = array(1, 2, "3", 5);

function escape($s)
{
	if (is_string($s))
		return "'".$s."'";
	else
		return $s;
}

function array2php($arr, $deep = 0)
{
	if (!is_array($arr))
		return "";
	if (array_keys($arr) == array_keys(array_fill(0,count($arr), true)))
		$keys = false;
	else
		$keys = true;
	$ret = "array(";
	foreach ($arr as $k => $v)
		$ret .= ($keys ? escape($k)." => " : "").(is_array($v) ? array2php($v, $deep+1) : escape($v)).", ";
	$ret = substr($ret, 0, -2);
	$ret .= ")";
	if ($deep == 0)
		$ret .= ";";
	return $ret;
}

print array2php($testarr);
?>
Comments are off for this post

márc 28

Email cimek keresese szoveges fajlokban

Category: Perl

Feladat: 
Készíts scriptet, ami szövegfile-okban e-mail címeket keres! A script dolgozza fel a parancssori paraméterként megadott nevű file-okat, gyűjtse ki belőlük az e-mail cím alakú szövegeket, és írja ki mindet a standard outputra (minden címet külön sorba).

 
Script:

if ($#ARGV < 0)
{
    print("Tul keves parameter");
    exit(1);
}

while ($line = <>)
{
    # Az osszes email cim alaku szoveg kiirasa ami az adott sorban talalhato
    while ($line =~ m{ S+@S+.[a-zA-z]{2,4} }xg)
    {
        print $&."n";
    }
}
Comments are off for this post