Discussion :

[lolodev]

bj

j'ai le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  if ($catname) {
                foreach $category (grep { /^$catname:/; } @categories) {
                        if ($category =~ /^($catname:[^:]+):/) {
                                $category = $1;
                        }
                        push (@categories_to_print, $category) unless  $categories_to_print[$#categories_to_print] eq $category;
                }
 
        }

que je souhaite remplacer par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
my $db_query = "SELECT catName,catNum FROM Categories ORDER by catName"; # Requete SQL
 
	$dbh=$db->prepare($db_query); # Preparation de la requete
	$dbh->execute(); # Execution de la requete
		my $categories = $db->selectall_arrayref($db_query,{Slice=>{}}) || []; 
 
			my %cathash = map 
        	{ 
                $_->{catName} =~ /^[info]:/?
                        ($1 => {catName=> $1, catNum=>$_->{catNum}}): 
                        ($_->{catName} => $_) 
        	} 
        	@$categories;

$catname est une variable qui renvoie une chaine.
@categories est un tableau qui contient des categories:sous categories:soussouscategories ...

et je cherche à remonter sous categories pour categorie=$catname ???

merci

[lolodev]

$catname est uen chaine qui contient une categorie ou une sous categorie ou une sous sous categorie.

[lolodev]

en gros, je cherche à récupérer le niveau souscategories , pour le niveau 1 = $catname ???

pour $catname, chercher xxx:sous categorie

[lolodev]

my %cathash = map
{
$_->{catName} =~ /^($catname:[*])/?
($1 => {catName=> $1, catNum=>$_->{catNum}}):
($_->{catName} => $_)
}
@$categories;

je cherche la chaine $catname: et je veux ce qu'il y a à droite

[lolodev]

plus précisement;

ce qu'il y a entre $catname: <recherché> :