Задача..

[DPX-Infinity]

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

поддерживаю) давай начинай)

[-=GIG=-]

Мать моя женщина
Мне тут реггер подогнали мультипоточный с бешенной скоростью регистрации - 10/50 номеров в секунду при условии адекватных прокси . На моих паблик работает нестабильно от 10 в секунду . Так вот автор намудрил регистрацию в таком виде что ни один сменщик паролей не хочет брать txtшники

[On-line]

Мать моя женщина
Мне тут реггер подогнали мультипоточный с бешенной скоростью регистрации - 10/50 номеров в секунду при условии адекватных прокси . На моих паблик работает нестабильно от 10 в секунду . Так вот автор намудрил регистрацию в таком виде что ни один сменщик паролей не хочет брать txtшники

[Rostov114]

Zver я все от тебя ожидал, но не таких извращений

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

<?php
$data = file($argv['1']);

foreach ($data as $value)
{
    $value = explode(';', $value);
    print $value['0'].';'.$value['1']."\n";
} 

[DPX-Infinity]

вот ещё вариант)

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

#lang scheme

(define argv
  (command-line
    #:args args
    args))

(define (find-nth-semicolon nn ss)
  (let loop ((n nn)
             (p 0)
             (s ss))
    (cond
      [(= n 0) (- p 1)]
      [(null? s) #f]
      [(char=? (car s) #\;) (loop (- n 1) (+ p 1) (cdr s))]
      [else (loop n (+ p 1) (cdr s))])))

(define (transformed ln)
  (substring ln 0 (find-nth-semicolon 2 (string->list ln))))

(define (do-work f1 f2)
  (call-with-input-file f1
    (lambda (i)
      (call-with-output-file f2
        #:exists 'truncate/replace
        (lambda (o)
          (let loop ((ln (read-line i)))
            (unless (eof-object? ln)
              (begin
                (write-string (transformed ln) o)
                (newline o)
                (loop (read-line i))))))))))

(do-work (car argv) (cadr argv))

правда, я Схему только начал изучать, так что не очень коротко)

[DEZmont]

где его можнонайти!!! этот С++?

[Zver]

Вот тут посмотри. Я где то видел...