Молодой человек.
Это делается не в Perl одной строчкой, а в некоей библиотеке, которую ты цепляешь к своей программе..
В коей библиотеке полсотни строк, как минимум, эту функцию реализуют.
Я достаточно доступно излагаю?
"На PHP" получается еще короче:
extract(db_row("select name,age from table"));
Только функцию db_row надо написать самому:
function db_row($query) {
$r=mysql_query($query);
if (!$r) die(mysql_error());
if (!mysql_num_rows($r)) return array();
return mysql_fetch_array($r);
}Впрочем, можно и без функций в одну строчку, но без обработки ошибок
extract(mysql_fetch_array(mysql_query("select * from table")));функция extract рульная и сама по себе, а с необязательным аргументом - вообще супер.