Задача..

Непопадающие в другие разделы и прочие философские темы

Re: Задача..

Сообщение Alexsandrit » 03 фев 2010, 20:57

а что такое ;pm ?
Изображение
:roll:
Alexsandrit
Активный участник
 
Сообщения: 256
Зарегистрирован: 29 сен 2007, 16:47
Домен: http://proekts.vfose.ru/

Re: Задача..

Сообщение DPX-Infinity » 03 фев 2010, 20:59

вот ещё вариант:
cat file | cut -d';' --output-delimiter=';' -f1,2 > file2
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Задача..

Сообщение DPX-Infinity » 03 фев 2010, 20:59

Alexsandrit писал(а):а что такое ;pm ?

где?
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Задача..

Сообщение Zver » 03 фев 2010, 21:00

вот вариант с записью обратно в файл...
Код: Выделить всёРазвернуть

<?php
function ICQfilter($file){
    
$text file_get_contents($file);
    
$text explode("\n"$text);
    
    for(
$i=0$i<count($text); $i++){
        
$text[$i] = explode(";"$text[$i]);
        
$ret .= $text[$i][0].";";
        
$ret .= $text[$i][1]."\n
"
;
    }
    
    return 
$ret;
}
$file "test.txt";
$content ICQfilter($file);
$f fopen($file"w");
fwrite($f$content);
?>
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Задача..

Сообщение Alexsandrit » 03 фев 2010, 21:04

icq;pass;pm :Search:
Изображение
:roll:
Alexsandrit
Активный участник
 
Сообщения: 256
Зарегистрирован: 29 сен 2007, 16:47
Домен: http://proekts.vfose.ru/

Re: Задача..

Сообщение Zver » 03 фев 2010, 21:06

да ну забей :D
я сначала подумал что это файл брута...
ЗЫ: возможно это майл, или что-то в этом роде..
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Задача..

Сообщение DPX-Infinity » 03 фев 2010, 21:11

хех. тогда уж вот:
Код: Выделить всёРазвернуть
import System.Environment
main = getArgs >>= \(f1:f2:_) -> readFile f1 >>= return . unlines . f . lines >>= writeFile f2

f :: String -> String
f = reverse .tail . snd. span (/=';') . reverse
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Задача..

Сообщение Conteo » 03 фев 2010, 21:12

Вы тут все с дуба рухнули штоле? о_О
Изображение
Пользователи федоры - как тараканы. Слабые духом и нервами давно вымерли, а оставшихся в живых уже ничем не взять.
Аватара пользователя
Conteo
Активный участник
 
Сообщения: 1813
Зарегистрирован: 14 мар 2008, 13:21
Откуда: Саратов, Заводской район
Домен: http://conteo.vfose.ru

Re: Задача..

Сообщение Zver » 03 фев 2010, 21:14

У мну идея :D
Давайте устроим форум во флудилке - даётся какая-то задаяа, и любым языком програмирования нужно её реализовать :D
Укого меньше кода получится - тот и создаёт новое задание, и так по цепочке...
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Задача..

Сообщение DPX-Infinity » 03 фев 2010, 21:24

вот ещё:
Код: Выделить всёРазвернуть
import Data.list
import Text.ParserCombinators.Parsec
import System.IO

main = do
    (f1,f2:_) <- getArgs
    readFile f1 >>= return . unlines . f . lines >>= writeFile f2
    where
        f s = case parse fieldParser f1 s of
            Left e -> error $ show e
            Right lst = intercalate ";" $ take 2 lst

fieldParser :: Parser [String]
fieldParser = sepBy1 (char ';') (many $ noneOf ";")
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Пред.След.

Вернуться в Разное

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24