Форум сервиса вфосе.ру

а что такое ;pm ?

вот ещё вариант:
cat file | cut -d';' --output-delimiter=';' -f1,2 > file2

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

где?

вот вариант с записью обратно в файл...

Код: Выделить всё • Развернуть

<?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);
?>

icq;pass;pm

да ну забей
я сначала подумал что это файл брута...
ЗЫ: возможно это майл, или что-то в этом роде..

хех. тогда уж вот:

Код: Выделить всё • Развернуть

import System.Environment
main = getArgs >>= \(f1:f2:_) -> readFile f1 >>= return . unlines . f . lines >>= writeFile f2

f :: String -> String
f = reverse .tail . snd. span (/=';') . reverse

Вы тут все с дуба рухнули штоле? о_О

У мну идея
Давайте устроим форум во флудилке - даётся какая-то задаяа, и любым языком програмирования нужно её реализовать
Укого меньше кода получится - тот и создаёт новое задание, и так по цепочке...

вот ещё:

Код: Выделить всё • Развернуть

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 ";")