форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"содержимое каталога"
Сообщение от freevit (??) on 07-Окт-04, 12:38  (MSK)
есть цикл который выводит содержимое какталога: opendir FDIR,"d:\\Linux\\MySQL_Dump" ; while($file = readdir FDIR) { print qq{ <INPUT TYPE="radio" NAME="flist" value="$file" >$file <br> }; } closedir FDIR; мне надо вывести только файлы типа ".sql" как ?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "содержимое каталога"
Сообщение от Loky on 07-Окт-04, 12:47  (MSK)
>есть цикл который выводит содержимое какталога: > >opendir FDIR,"d:\\Linux\\MySQL_Dump" ; > while($file = readdir FDIR) > { > print qq{ > <INPUT TYPE="radio" NAME="flist" value="$file" >$file <br> > }; > } >closedir FDIR; >мне надо вывести только файлы типа ".sql" >как ? ls /path/to/dir/*.sql
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "содержимое каталога"
Сообщение от Loky on 07-Окт-04, 13:07  (MSK)
>есть цикл который выводит содержимое какталога: > >opendir FDIR,"d:\\Linux\\MySQL_Dump" ; > while($file = readdir FDIR) > { > print qq{ > <INPUT TYPE="radio" NAME="flist" value="$file" >$file <br> > }; > } >closedir FDIR; >мне надо вывести только файлы типа ".sql" >как ? если серьезною, то что-то вроде этого $file_arr=explode ('.', $file_name); if ($file_arr[2]=='sql') { вывод на экран }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "содержимое каталога"
Сообщение от Brainbug (ok) on 07-Окт-04, 13:18  (MSK)
>есть цикл который выводит содержимое какталога: > >opendir FDIR,"d:\\Linux\\MySQL_Dump" ; > while($file = readdir FDIR) > { > print qq{ > <INPUT TYPE="radio" NAME="flist" value="$file" >$file <br> > }; > } >closedir FDIR; >мне надо вывести только файлы типа ".sql" >как ? #!/usr/local/bin/perl -w opendir DIRH,"/root/perl" || die "Can't open dir"; @sql= grep{/^\.sql$/} readdir(DIRH); foreach (@sql){         print "$_\n"; } closedir DIRH ||  die "Can't close dir"; exit; P.S. Regexpr tolko poto4neje sdelai.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.