Αναζήτηση:

Type: Posts; Χρήστης: trotos; Λέξη(εις) Κλειδιά:

Σελ. 1 από 6 1 2 3 4

Αναζήτηση: Η αναζήτηση ολοκληρώθηκε σε 0,23 δευτερόλεπτα

  1. Μηνύματα
    25
    Εμφανίσεις
    15.590

    Απάντηση: Σχετικά με την κλήρωση της πρόσκλησης για το OnePlus 2

    http://onepl.us/GLIB-UZZU-XA12-RVOI

    οποιος προλαβει παιδες, ληγει σε λιγοτερο απο 24 hr (ελαβα το email στις 4:18 PM ωρα γερμανιας)
  2. Μηνύματα
    1.964
    Εμφανίσεις
    316.741

    Απάντηση: Windows 10 Αναβάθμιση: Συζήτηση, προβλήματα, και λύσεις (;)

    καλησπερα παιδες,
    υπαρχει κανα link για τα 10523 insiders preview μπας και καταφερω να κανω upgrade απο usbstick. Εχω βγαλει ολα τα τηλε-μετα μετρα και onedrive xboxlive, εβγαλα και τον online Λογαριασμο κλπ και ειμαι κολυμενος σε 10240... παντως μια χαρα ενεργοποιημενα ειναι. Οποτε. καποιος μπορει να γινει inseder. Τα παιρνει τσαμπε, πεταει μετα τον online Λογαριασμο, βγαζει και τα κακοβουλα της M$ και φαινεται να ειναι ΟΚ. Να μπορουσα να κανω και κανα clean install.
    Οταν κατεβασα και ετρεξα το media creation tool, θελει να μου κανει αναβαθμηση. Γνωριζει κανεις ποια εκδοση θα μου ερθει.
  3. Θέμα: Oneplus One

    Από trotos
    Μηνύματα
    600
    Εμφανίσεις
    58.100

    Απάντηση: Oneplus One

    3 invites για 3 το πολυ ακομα μερες. Αν καποιος ενδιαφερεται παρακαλω να γραψει εδω και να στειλει προσωπικο μηνυμα ωστε, να του στειλω την προσκληση και να γνωριζουν οτι υπαρχουν ηδη τρεις ενδιαφερομενοι. Ελπιζω να γραφω στο σωστο μερος
  4. Θέμα: text manipulation

    Από trotos
    Μηνύματα
    3
    Εμφανίσεις
    1.855

    Απάντηση: text manipulation

    Περιβαλλον linux... και μονο...
    Γλωσσα προγραμματισμου, οτι απλοτερο υπαρχει που μπορει να κανει σωστα τη δουλεια.
    ΝΑ πω οτι δοκιμασα το
    sort 'file.bed' | awk '{print $4}' | uniq -c -D -i
    η και χωρις το awk
    sort 'file.bed' | awk '{print $4}' | uniq -c -D -i
    και τα αποτελεσματα δεν ειναι τα δεοντα... πρεπει να βγουν και οι αριθμοι εμπρος.
  5. Θέμα: text manipulation

    Από trotos
    Μηνύματα
    3
    Εμφανίσεις
    1.855

    text manipulation

    χρονια και σαμανια, και καλως σας ξαναβρηκα.

    εχω το αρχειο με τις ακολουθες tab διαχωρισμενες αλληλουχιες:
    chr1 0 600 15 Repetitive/CNV 0 . 0 600 245,245,245
    chr1 1000 1600 8 Insulator 0 . 1000 1600 10,190,254
    chr1 100004000 100005200 2 Weak Promoter 0 . 100004000 100005200 255,105,105
    chr1 100005200 100016800 13 Heterochrom/lo 0 . 100005200 100016800 245,245,245
    chr1 10001600 10014800 13 Heterochrom/lo 0 . 10001600 10014800 245,245,245
    chr1 100016800 100022800 12 Repressed 0 . 100016800 100022800 127,127,127
    chr1 100022800 100026800 13 Heterochrom/lo 0 . 100022800 100026800 245,245,245
    chr1 100026800 100028600 12 Repressed 0 . 100026800 100028600 127,127,127
    chr1 100028600 100037000 13 Heterochrom/lo 0 . 100028600 100037000 245,245,245
    chr1 100037000 100046600 12 Repressed 0 . 100037000 100046600 127,127,127
    chr1 100046600 100046800 6 Weak Enhancer 0 . 100046600 100046800 255,252,4
    chr1 100046800 100047000 2 Weak Promoter 0 . 100046800 100047000 255,105,105
    chr1 100047000 100047200 4 Strong Enhancer 0 . 100047000 100047200 250,202,0
    chr1 100047200 100047400 6 Weak Enhancer 0 . 100047200 100047400 255,252,4
    chr1 100047400 100054200 13 Heterochrom/lo 0 . 100047400 100054200 245,245,245
    chr1 100054200 100055000 12 Repressed 0 . 100054200 100055000 127,127,127
    chr1 100055000 100087400 13 Heterochrom/lo 0 . 100055000 100087400 245,245,245
    chr1 100087400 100087600 6 Weak Enhancer 0 . 100087400 100087600 255,252,4

    με ενδιαφερει η τεταρτη στηλη.
    Θα ηθελα αρχικα να μπορεσω να βγαλω τον αριθμο κενο πχ

    6 Weak Enhancer --> Weak Enhancer

    μετα να μπορεσω να μετρησω ποσα ιδια στοιχεια υπαρχουν, πχ
    ποσα Weak Enhancer υπαρχουν στο αρχειο στην 4η στηλη
    και να γινει εξαγωγη ενος αρχειου οπως:
    Weak Enhancer 13
    Repressed 200
    .
    .
    .

    εχει καποιος καμια ιδεα;

    Ευχαριστω.

    Υ.Γ. ακομα και αν μπορει να γινει απο spreadsheat δεν εχω κανενα προβλημα.
  6. Μηνύματα
    5
    Εμφανίσεις
    1.503

    Απάντηση: πλήρης υπολογιστής pentium D 2.8, 90euro

    ευχαριστω τον φιλο workorderman. Η συναλλαγη εγινε με τον καλυτερο δυνατο τροπο, ελπιζω να μην υπαρξει κανενα προβλημα με το συστημα.
  7. Μηνύματα
    5
    Εμφανίσεις
    1.503

    Απάντηση: πλήρης υπολογιστής pentium D 2.8, 90euro

    καλη χρονια σε ολους.Συγνωμη για την απουσια αλλα ημουν εκτος Ελλαδος. εχω στειλει  pm στους ενδιαφερομενους
  8. Μηνύματα
    5
    Εμφανίσεις
    1.503

    Απάντηση: πλήρης υπολογιστής pentium D 2.8, 90euro

    θα προτιμησω να φυγουν ολα μαζι...αν βρω και αλλους να παρουν τα υπολοιπα εισαι μεσα για μητρικη.

    Μαλλον θα μπει και σε αλλο forum.

    Ευχαριστω
  9. Μηνύματα
    5
    Εμφανίσεις
    1.503

    πλήρης υπολογιστής pentium D 2.8, 90euro

    Καλημερα σας

    Καιρος ειναι να ξεσκαρταρω και εγω κατι απο την αποθηκη.

    ΠΟΥΛΑΩ προς 90 ευρω τον εξης υπολογιστη:

    CPU: pentium D 2,8 GHz (Dual Core, απο το D)
    Motherboard: ASUS P5N-e SLI
    Memory: Supertalent T800UX26C4 (2x1GB, Dual channel)
    GPU: Sapphire Radeaon X700 pro Advance
    HDD: WD1200JS-00 MHB0 (SATA2, με GUID partition, τρεχει Arhclinux CHACRA).
    PSU: 400W (πριν παρω εναν thermaltake με αυτον ετρεχα εναν q6600)

    Ο υπολογιστης ερχεται μαζι με κουτι, παλιο κομματι, στον οποιο δεν εχω συνομολογησει τα κομματια γιατι καποιος μπορει να βαλει το δικο του, πληκτρολογιο turbo-X (της φτηνιας) και ποντικι (και αυτο παλιο).

    Λογω δουλειας αν αργω να απαντησω παρακαλω να μη ανησυχησετε. Μονο Αθηνα, κατα προτιμηση Αργυρουπολη και απο το σπιτι για να γινει ελεγχος καλης λειτουργιας.
  10. Μηνύματα
    20.918
    Εμφανίσεις
    3.193.127

    Απάντηση: Προσφορες καταστηματων

    Τον crucial εννοεις;

    Ο crucial νομιζω ειναι πιο αξιοπιστος, σε ταχυτητα τωρα πανω κατω ιδιοι ειναι ολοι αυτοι.
    Απλα ειναι καλη τιμη για 240 (!) GB.

    ναι ...συγνωμη, δικο μου λαθος
  11. Μηνύματα
    20.918
    Εμφανίσεις
    3.193.127

    Απάντηση: Προσφορες καταστηματων

    Vertex 3 240GB @ 118€ !

    http://www.priveshop.gr/product.php?code=91075055&ref=bestprice.gr

    Εμεις διπλα (στο insomnia) ριξαμε μια παραγγελια σε παρομοια τιμη απο ενα αλλο νεο καταστημα (pchealing.net - down αυτη τη στιγμη) και μας ειπαν οτι ειναι διαθεσιμος και θα ερθει εντος 2-3 ημερων.

    ~124€ με μεταφορικα courier και αντικαταβολη βγηκε.

    Η αληθεια ειναι οτι μπηκα σε σκεψεις οταν ειδα και την αντιστοιχη τιμη του PriveShop, μιας και ειναι πιο γνωστο, αλλα μαλλον θα κρατησω την πρωτη παραγγελια.

    edit:
    Εδω και το αλλο link
    http://www.pchealing.net/product.php?id_product=9500

    σε σχεση με τον ocz M4-CT128M4SSD2 πως ειναι;
  12. Μηνύματα
    2
    Εμφανίσεις
    1.066

    Απάντηση: ΟΙΚΙΑΚΟΣ ΕΞΟΠΛΙΣΜΟΣ

    ΜΙα φιλικη συμβουλη.
    Αν βαλεις καποια φοτο η τα ακριβη μοντελα του εξοπλισμου θα ηταν καλυτερα.
    συμφωνω
  13. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    παιδες υπαρχει καποια βοηθεια στο πως να μπορεσω να εξαγω σωστα το αποτελεσμα (οπως φαινεται στα προηγουμενα posts) σε αρχειο σε συγκεκριμενη θεση;
  14. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    Ωχ... το if (open (....>...)) η με >> πρεπει να το ειχα ψηλιαστει.

    Το προβλημα ειναι οτι ακομα δε μπορω να το κανω να μου ΕΞΑΓΕΙ και τα αποτελεσματα του:
    $test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;
    σε συγκεκριμενο αρχειο.

    οταν δινω με τον παραπανω κωδικα να μου εξαγει τα αποτελεσματα (τα οποια ειναι της μορφης που φαινονται παραπανω) μου δινει το εξης μηνυμα:
    Argument "chr18^I58975469^I58981096^I.^I1000^I.^I8.10918^I225.9060..." isn't numeric in right bitshift (>>) at /Users/sunta3iouxos/Desktop/script line 43.

    αυτο με οποιο τυπο output του δωσω να γραψει.
    %test
    @test
    $test
    ειναι κατι που δεν εχω καταλαβει;
    πρεπει να ορισω τον τυπο του output οπως στην C και αυτο πως το κανω;
  15. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    Ναι, καλα στα λεει, γιατι χρησιμοποιεις με τελειως λαθος τροπο τον filehandler. Κατι σε τετοιο θα σου επαιζε καλυτερα:

    if (open(FH,">myoutfile")) {
    print FH $test;
    close FH;
    }

    Εσυ πας να ανοιξεις ενα αρχειο και του περνας το αποτελεσμα για το ονομα του αρχειου και μαλιστα το ανοιγεις για αναγνωση και οχι για εγγραφη. Αν θες να σου κανει preserve τα προηγουμενα δεδομενα και να μην στα σβηνει στο καθε print δωσε open(FH, ">>myoutfile") με δυο >>.

    Ωχ... το if (open (....>...)) η με >> πρεπει να το ειχα ψηλιαστει.

    Το προβλημα ειναι οτι ακομα δε μπορω να το κανω να μου ΕΞΑΓΕΙ και τα αποτελεσματα του:
    $test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;
    σε συγκεκριμενο αρχειο.
  16. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    οταν παει να διαβασει τα
    open IN, ("$test");

    λεει οτι:

    Unsuccessful open on filename containing newline at /Users/sunta3iouxos/Desktop/script line 43.
    readline() on closed filehandle IN at /Users/sunta3iouxos/Desktop/script line 46.
  17. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    Δες βρε αν η $test σου εχει αποτελεσμα. Προσπαθησε να καταλαβεις που ειναι το προβλημα. Αν η $test εχει οντως αποτελεσμα και δεν ειναι κενη, τοτε το προβλημα μηπως ειναι επειδη δεν κανεις close το αρχειο και δεν το σωζεις;

    Με γενικοτητες "δε μου γραφει τιποτα"/"δεν κανει τιποτα" δεν μπορουμε να σε βοηθησουμε. Θελουμε κωδικα να δουμε.

    Αυτο που δε μπορω να καταλαβω ειναι οτι ενω βλεπω το output της εντολης intersectBed στην οθονη, δε μπορω να βρω που και αν το γραφει πουθενα.

    αυτος ειναι ο κωδικας.
    #!/usr/bin/perl
    use File::Path;
    use warnings;
    use strict;

    my $path = $ENV{HOME};
    my $desktop_path = "$path/Desktop";
    my $PeakDir = "$desktop_path/BioProject";
    my $RepeatDir = "$desktop_path/repeatfiles";
    mkpath($PeakDir);
    my $test = "$desktop_path/test";
    mkpath($test);

    #open peak file downloaded and saved to PeakDir folder, and read contents
    opendir (peakDir, "$PeakDir") || die "can't opendir $PeakDir: $!";
    my @peakfiles = grep { ! /^\.{1,2}$/ } readdir (peakDir);#= readdir (peakDir);

    #open peak file downloaded and saved to PeakDir folder, and read contents
    opendir (repeatDir, "$RepeatDir") || die "can't opendir $RepeatDir: $!";
    my @repeatfiles = grep { ! /^\.{1,2}$/ } readdir (repeatDir);

    opendir (testDir, "$test") || die "can't opendir $testDir: $!";

    #only for mac os x
    my @deletefile = ("$PeakDir/\.DS_Store","$RepeatDir/\.DS_Store");
    foreach my $filetodelete ( @deletefile ) {
    unlink $filetodelete or warn "Could not unlink $filetodelete: $!";
    }

    #test of directories
    print "@peakfiles $!\n";
    print "@repeatfiles $!\n";

    #main program
    for (my $i = 0; $i <= scalar(@peakfiles)-1; $i++) {
    print "$i file in array is: $peakfiles\n";
    for (my $j=0; $j<=scalar(@repeatfiles)-1;$j++) {
    print "$j file in array is: $repeatfiles\n";
    #εδω δε γραφει στο τεστ
    $test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;

    my @testfiles = grep { ! /^\.{1,2}$/ } readdir (testDir);
    open IN, ("$test");#"intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles |");
    my %mean_overlap=();
    my %no=();
    while () {
    if (/(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)\t(.+)/) {
    #a3iologish ba8mou epikalhpshs
    $overlap = (2*$15)/(($3-$2)+($13-$12));
    $mean_overlap{$14} += $overlap;
    $no{$14}++;
    }
    }
    }
    }
    close OUT;
    close IN;
    closedir (peakDir);
  18. Μηνύματα
    12
    Εμφανίσεις
    1.140

    Απάντηση: perl once more "the print on file" problem.

    χμμ, αυτο το εκανα απλα δε μπορει να μου γραψει το αρχειο σε συγκεκριμενη θεση απο οπου μετα να μπορω να το διαβασω (στο υπολοιπο μερος του προγραμματος) για να το επεξεργαστω.
    Δηλαδη, ενω δημιουργω τον φακελο
    my $test = "$desktop_path/test";
    mkpath($test);
    μετα απο την εκτελεση της εντολης:
    $test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;

    δε μου γραφει τιποτα εκει

    το αναμενομενο αποτελεσμα ειναι αυτο και χωριζεται μονο με tabs και \n:
    chr20 4901985 4902690 . 532 . 2.61349 7.52958 6.65339 475 . -1 -1 . 0
    chr7 101823335 101824261 . 532 . 2.58479 7.52958 6.65343 415 . -1 -1 . 0
    chr9 105895270 105897014 . 532 . 1.94527 7.52318 6.64706 958 chr9 105895459 105895612 SINE 153
    chr9 105895270 105897014 . 532 . 1.94527 7.52318 6.64706 958 chr9 105896648 105896671 Low_complexity 23
    chr9 105895270 105897014 . 532 . 1.94527 7.52318 6.64706 958 chr9 105896964 105897139 LINE 50
    chr2 101235311 101236140 . 532 . 2.72318 7.52152 6.64543 503 chr2 101235205 101235343 SINE 32
    chr2 101235311 101236140 . 532 . 2.72318 7.52152 6.64543 503 chr2 101235579 101235660 Simple_repeat 81
    chr2 101235311 101236140 . 532 . 2.72318 7.52152 6.64543 503 chr2 101235991 101236035 Low_complexity 44
    chr8 38774444 38774779 . 532 . 5.16409 7.52088 6.64483 165 . -1 -1 . 0
    chr3 128981266 128981689 . 532 . 5.33268 7.52088 6.64487 269 chr3 128981288 128981325 SINE 37
    chr2 231696385 231696733 . 532 . 5.37224 7.52088 6.6449 156 . -1 -1 . 0
    chr19 19793186 19793692 . 532 . 4.9497 7.52088 6.64493 253 . -1 -1 . 0
    chr8 142471103 142471733 . 532 . 5.16409 7.52088 6.64497 185 chr8 142471178 142471216 Low_complexity 38
    chr8 142471103 142471733 . 532 . 5.16409 7.52088 6.64497 185 chr8 142471377 142471409 Low_complexity 32
    chr8 142471103 142471733 . 532 . 5.16409 7.52088 6.64497 185 chr8 142471424 142471501 Low_complexity 77
    chr7 43653136 43653467 . 532 . 5.21809 7.52088 6.645 164 . -1 -1 . 0
    chr18 54506158 54506566 . 532 . 3.46667 7.51759 6.64174 216 chr18 54506511 54506539 Simple_repeat 28
    chr6 52466422 52466806 . 532 . 3.44185 7.51759 6.64177 193 chr6 52466236 52466423 SINE 1
    chr5 131822311 131823025 . 532 . 3.49556 7.51759 6.64181 105 chr5 131821684 131822480 LINE 169
    chr5 131822311 131823025 . 532 . 3.49556 7.51759 6.64181 105 chr5 131822480 131822547 Class_DNA 67
    chr21 45175307 45176049 . 532 . 3.44632 7.51759 6.64184 399 chr21 45175309 45175369 LINE 60


    ........Auto merged post: trotos προσθεσε 0 λεπτα και 58 δευτερολεπτα αργοτερα ........

    Επιπλεον, αν θελεις να παρεις και το stderr, μπορεις μεσα στα backticks να το ανακατευθυνεις στο stdout, δηλαδη να γραψεις κατι τετοιο:

    $output = `$cmd 2>&1`;

    οπου $cmd η εντολη που πας να εκτελεσεις.

    το "2>&1" τι ακριβως κανει;;;
  19. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    Ναι το:

    my @files = ;

    βολευει τρομερα. Αντι του foreach νομιζω και το for βαζω συνηθως που ειναι το ιδιο.

    μετα ομως αν θελω ενα ενα τα αρχεια που διαβασει να μπορεσω να τα βαλω σε μια εντολη δε γινεται ετσι, νομιζω μονο με for loop και με i=0, i<=sca;ar, κτλπ
  20. Μηνύματα
    12
    Εμφανίσεις
    1.140

    perl once more "the print on file" problem.

    Εδω ειμαι παλι.
    Εδω με βοηθησατε να αντεπεξελθω σε καποια προβληματα.
    ΜΕ την εντολη
    system ()

    λεω στην perl να εκτελεσει μια εντολη:
    system ("intersectBed", "-wao", "-a", "$PeakDir/$peakfiles", "-b", "$RepeatDir/$repeatfiles");

    μια χαρα δουλευει και μου βγαζει πολυ καλα αποτελεσματα στην οθονη.
    πως μπορω να αποθηκευω τα αποτελεσματα σε ενα τεστ αρχειο; εχω δοκιμασει τα παρακατω χωρις καμια ελπιδα:

    my $test = "$desktop_path/test";
    mkpath($test);
    opendir (testDir, "$test") || die "can't opendir $RepeatDir: $!";
    system ("intersectBed", "-wao", "-a", "$PeakDir/$peakfiles", "-b", "$RepeatDir/$repeatfiles") >$test;
    #$test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;
    #@test = `intersectBed -wao -a $PeakDir/$peakfiles -b $RepeatDir/$repeatfiles`;


    οπως παντα καθε συμβουλη δεκτη. λογω δουλειας αργω να τις ελενξω.
  21. Θέμα: ipod 5th gen 8GB @90

    Από trotos
    Μηνύματα
    2
    Εμφανίσεις
    751

    Απάντηση: ipod 5th gen 8GB @90

    παρακαλω να κλειδωθει. Αποφασισα να το κρατησω. Θα παει για δωρο.
  22. Θέμα: ipod 5th gen 8GB @90

    Από trotos
    Μηνύματα
    2
    Εμφανίσεις
    751

    ipod 5th gen 8GB @90

    Πωλειται στα 90 ευρω.
    ειναι σε αψογη κατασταση χρησιμοποιηθηκε ελαχιστα, μιας και μετα πηρα το galaxy S, και το εστειλε σε αχρηστια.
    τα ακουστικα δε χρησιμοποιηθηκαν ποτε γιατι δε πιανουν μια μπροστα στα AKG μου!!!
    Καθε ελεγχος δεκτος
    ΑΘΗΝΑ

    Υ.Γ. η αγγελια εχει δημοσιευτει και σε αλλα φορα
  23. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    Συγνωμη αν σε προσβαλλα, αλλα ο σκοπος μου ηταν ακριβως να επιστησω την προσοχη στο να γραφουμε perl way.



    Εγω παντως θα προτιμουσα ενα for:

    for (my $i = 0; $i < scalar(@peakfiles); $i++) {

    η

    for my $i (0..scalar(@peakfiles)-1) {



    Δοκιμασε να σωσεις το αρχειο πριν το τρεξεις, γιατι το μηνυμα λαθους που εβαλες δεν εχει καμια σχεση με το system. Το μηνυμα λαθους λεει οτι ετρεξες το system ως εξης:

    system ("intersectBed" "-a" "$repeatfiles" "-b" "$bedfilename")

    χωρις κομμα.



    Αυτο που εδωσε ο imitheos αφαιρει ακριβως την τελεια και την διπλη τελεια. Εχεις τους operators για αρχη και τελος, αρα ειναι safe matching.

    τσεκαρω το βραδυ και επανερχομαι
  24. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    Εφοσον υπαρχουν φυσικα θα τα εχει και αυτα. Αν θες να μην υπαρχουν μπορεις να τα αφαιρεσεις. Ενας τροπος που μου ηρθε στο μυαλο (χωρις ομως να ξερω αν ειναι δοκιμος η αναπηρος) ειναι ο εξης:


    my @peakfiles = grep { ! /^\.{1,2}$/ } readdir (peakDir);


    Δηλαδη αφαιρει τα αποτελεσματα που εχουν μονο 1 η 2 τελειες.

    δε νομιζω να μου κανει γιατι υπαρχει και η τελεια της καταληξης των αρχειων. εκτος και αν βρισκει μονο τελειες.
    καποιος λακκος υπαρχει με το file structure αλλα δεν εχω καμια ιδεα.
  25. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    ανεξαρτητα απο το παραπανω (την υπαρξη των αρχειων "." και ".." προχωρησα λιγο την δουλεια ως:

    for (my $i = 0; $i <= scalar(@peakfiles)-1; $i++) {
    print "$i file in array is: $peakfiles\n";
    for (my $j=0; $j<=scalar(@repeatfiles)-1;$j++) {
    print "$j file in array is: $repeatfiles\n";
    }
    το αποτελεσμα ειναι αυτο.
    εχει και αλλα πισω
    .
    .
    .
    0 file in array is: .
    1 file in array is: ..
    2 file in array is: Class.bed
    3 file in array is: Family.bed
    4 file in array is: Name.bed
    17 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k9ac.broadPeak.gz
    0 file in array is: .
    1 file in array is: ..
    2 file in array is: Class.bed
    3 file in array is: Family.bed
    4 file in array is: Name.bed
    18 file in array is: wgEncodeBroadChipSeqPeaksH1hescH4k20me1.broadPeak.gz
    0 file in array is: .
    1 file in array is: ..
    2 file in array is: Class.bed
    3 file in array is: Family.bed
    4 file in array is: Name.bed

    παλι τα . και .. ειναι ανεπιθυμητα αλλα η σειρα με την οποια αυτα εξαγονται ειναι καλη γιατι ετσι μπορω να συγκρινω το πχ 18 με τα 2,3,4.

    οταν μετα καλω ενα προγραμμα απο το συστημα ως:
    system ("intersectBed", "-a", "$repeatfiles", "-b", "$bedfilename")
    παιρνω το εξης λαθος:

    String found where operator expected at /Users/sunta3iouxos/Desktop/bioinfo/myscript.pl line 149, near ""intersectBed" "-a""
    (Missing operator before "-a"?)
    String found where operator expected at /Users/sunta3iouxos/Desktop/bioinfo/myscript.pl line 149, near ""-a" "$repeatfiles""
    (Missing operator before "$repeatfiles"?)
    String found where operator expected at /Users/sunta3iouxos/Desktop/bioinfo/myscript.pl line 149, near ""-b" "$bedfilename""
    (Missing operator before "$bedfilename"?)
  26. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    Πραγματι, μονο αν σε ενδιαφερει η θεση των στοιχειων μεσα στο array θα μπορουσες να χρησιμοποιουσες ποτε το for loop, αν και αυτο λυνεται ευκολα και με counter $i++ καπου :)

    Επισης χρησιμοποιησε και αυτο:

    use Data::Dumper;
    print Dumper($myscalar, $myref, \@myarray, \%myhash);

    Δεν πας πουθενα χωρις Data::Dumper. Ειναι το ευαγγελιο σου για να δεις τι εχει μεσα η καθε δομη με ωραια παρουσιαση.
    το for loop με ενδιαφερει γιατι στο επομενο βημα θα χρησιμοποιησω ενα ενα τα στοιχεια, οπως παιρνουν θεση απο την καταμετρηση i για να γινεται επεξεργασια σε καθε ενα.

    Ολα αυτα που δινεται στην παρουσα ενοτητα παντως με βοηθανε να μαθω να γραφω στην perl.

    ........Auto merged post: trotos προσθεσε 58 λεπτα και 40 δευτερολεπτα αργοτερα ........

    Συνδυαζοντας τα δυο παραπανω εχουμε

    for (my $i = 0; $i <= scalar(@peakfiles)-1; $i++) {
    print "$i file in array is: $peakfiles\n";
    }


    Δοκιμασε αυτο και δες τι σου βγαζει. Οι δυο πρωτες καταχωρησεις ειναι ο τρεχων καταλογος και ο πατρικος καταλογος δηλαδη . και .. οποτε αν δεν εχεις αλλα αρχεια λογικο να βλεπεις μονο τελειες.

    το εκανα δουλεψε αλλα ειδα οτι εχουν παρει και καταχωρησεις τα . και .. οπως φαινονται στις πρωτες γραμμες:
    0 file in array is: .
    1 file in array is: ..
    2 file in array is: wgEncodeBroadChipSeqPeaksGm12878Ctcf.broadPeak.gz
    3 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k27ac.broadPeak.gz
    4 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k27me3.broadPeak.gz
    5 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k36me3.broadPeak.gz
    6 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k4me1.broadPeak.gz
    7 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k4me2.broadPeak.gz
    8 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k4me3.broadPeak.gz
    9 file in array is: wgEncodeBroadChipSeqPeaksGm12878H3k9ac.broadPeak.gz
    10 file in array is: wgEncodeBroadChipSeqPeaksGm12878H4k20me1.broadPeak.gz
    11 file in array is: wgEncodeBroadChipSeqPeaksH1hescCtcf.broadPeak.gz
    12 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k27me3.broadPeak.gz
    13 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k36me3.broadPeak.gz
    14 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k4me1.broadPeak.gz
    15 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k4me2.broadPeak.gz
    16 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k4me3.broadPeak.gz
    17 file in array is: wgEncodeBroadChipSeqPeaksH1hescH3k9ac.broadPeak.gz
    18 file in array is: wgEncodeBroadChipSeqPeaksH1hescH4k20me1.broadPeak.gz
  27. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    ευχαριστω για τις απαντησεις το απογευμα που θα εχω χρονο θα δοκιμασω.
    @boetian
    Μην γραφετε perl με αναπηρο τροπο

    συγνωμη αλλα δεν ειμαι και ο θεος του προγραμματισμου. τωρα μαθαινω και προσπαθω να μαθω απο κατι που χρειαζεται να γινει.
  28. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    κανεις;
  29. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    Απάντηση: for loop for perl

    επιπλεον βλεπω οτι εαν παω να "εκτυπωσω" το πρωτο στοιχειο που υπαρχει στα peakfiles μου βγαινει λαθος.
    print "1st file in array is: $peakfiles\n"; #δε μου δινει κατι, μονο τελειες.
  30. Θέμα: for loop for perl

    Από trotos
    Μηνύματα
    17
    Εμφανίσεις
    2.593

    for loop for perl

    μετα απο τα παρακατω θεματα, εχω ακομα ενα προβλημα.
    οριζω αρχεια που βρισκονται σε φακελο ως:

    #!/usr/bin/perl
    use File::Path;
    use warnings;
    use strict;
    my $path = $ENV{HOME};
    my $desktop_path = "$path/Desktop";
    my $PeakDir = "$desktop_path/BioProject";
    my $RepeatDir = "$desktop_path/repeatfiles";
    mkpath($PeakDir);
    #open peak file downloaded and saved to PeakDir folder, and read contents
    opendir (peakDir, "$PeakDir") || die "can't opendir $PeakDir: $!";
    my @peakfiles = readdir (peakDir);
    και παω να αρχισω να επεξεργαζομαι καθε αρχειο ως;

    #for (my $i=0; $i<=scalar("@peakfiles")-1;$i++);

    και τρωω ητα. δεν το βλεπει καλα. τι λαθος κανω; και γιατι;
  31. Μηνύματα
    9
    Εμφανίσεις
    1.031

    Απάντηση: εξαγωγή από συμπιεσμένα αρχεία στην perl

    αχ αυτες οι "μικρες" διαφορες τι ζημια μπορουν να κανουν.
  32. Μηνύματα
    9
    Εμφανίσεις
    1.031

    Απάντηση: εξαγωγή από συμπιεσμένα αρχεία στην perl

    δοκιμασε αυτο

    use Archive::Extract;
    my $ae = Archive::Extract->new( archive => 'foo.tgz' );
    my $ok = $ae->extract;


    αυτο το διαβασα και στο site της perl. το ερωτημα ειναι πως μπορω να βαλω στη θεση του foo.tgz to $PeakDir, οπως οριζεται απο το παρακατω:
    my $path = $ENV{HOME};
    my $desktop_path = "$path/Desktop";
    my $PeakDir = "$desktop_path/BioProject";
    Θελω να μπορεσει να διαβασει τα .gz απο αυτον τον φακελο και να μπορεσει να κανει extract αυτων των αρχειων.
  33. Μηνύματα
    20.918
    Εμφανίσεις
    3.193.127

    Απάντηση: Προσφορες καταστηματων

    Σε συγκριση με αυτο τι λεει;
    http://www.amazon.co.uk/Corsair-CSSD-F120GB3-BK-Force-120GB-Solid/dp/B0051A8T52/ref=pd_luc_sbs_03_02_t_lh

    ........Auto merged post: trotos προσθεσε 10 λεπτα και 8 δευτερολεπτα αργοτερα ........

    ενω παιζει και αυτο:
    http://www.visionstudio.gr/prodcompare.asp?id1=24798&id2=24849&cat=6&sub=318
  34. Μηνύματα
    9
    Εμφανίσεις
    1.031

    Απάντηση: εξαγωγή από συμπιεσμένα αρχεία στην perl

    ειναι ακριβως το ιδιο...τουλαχιστον στα δικα μου ματια δε μπορω να βρω καποια αλλαγη.
  35. Μηνύματα
    9
    Εμφανίσεις
    1.031

    Απάντηση: εξαγωγή από συμπιεσμένα αρχεία στην perl

    ελληνοφωνο forum για perl δε νομιζω να βρεις
    παντως για αυτα που ρωτας ριξε μια ματια στο synopsis εδω
    http://perldoc.perl.org/Archive/Extract.html

    απο εκει διαβαζω, αλλα δε καταλαβαινω την τυφλα μου.
    υπαρχει καποια λυση στο ερωτημα μου που να μπορεσω να την καταλαβω;
  36. Μηνύματα
    6
    Εμφανίσεις
    1.299

    Απάντηση: κατασκευή φακέλου στην perl ανεξαρτήτως χρήστη.

    δε με ενδιαφερει, θελω να φτιαξω ενα script που να δουλευει οσο το δυνατον σε περισοτερα unix/;inux based μηχανηματα. Οταν θα ολοκληρωθει θα παει να τρεξει σε cluster και θα γινει απο αλλον optimized για multi-core-thread-big-mem και δε ξερω τι αλλο.
    Απλα πρεπει να φτιαξω μονος τον βασικο σκελετο για να μαθω.
  37. Μηνύματα
    2
    Εμφανίσεις
    680

    Απάντηση: perl και ορισμός home folder

    Αν μπορει καποιος απο τους moderators να συμπτυξει αυτη την απαντηση με το:
    http://www.adslgr.com/forum/showthread.php?t=582114
    δε ξερω τι μπορει να εγινε λαθος
  38. Μηνύματα
    9
    Εμφανίσεις
    1.031

    εξαγωγή από συμπιεσμένα αρχεία στην perl

    νεο ερωτημα...
    εχω εναν φακελο, πχ ~/Desktop/Bioperl/
    ο οποιος περιεχει gz αρχεια.
    πως μπορω απο την perl να του πω να κανει εξαγωγη αρχειων απο τον συγκεκριμενο φακελο στον ιδιο φακελο;

    δοκιμαζω τα:
    use Archive::Extract;
    my $ae->extract( )

    οπου $PeakDir εχει οριστει ως το ~/Desktop/Bioperl/

    απο οτι καταλαβαινετε δεν δουλευει...

    δοκιμασα και κατι σαν:
    $ae = Archive::Extract->new(archive => '$PeakDir',)

    τιποτα
    Υ.Γ. υπαρχει καποιο forum οπου ασχολειται αποκλειστικα με perl, ελληνοφωνο κατα προτιμηση για να μπορω να ποσταρω εκει τις ερωτησεις μου οσο αρχαριος και να ειμαι;
  39. Μηνύματα
    11
    Εμφανίσεις
    1.454

    Απάντηση: Lightweight, γρήγορο, σταθερό, noob friendly

    Εγω θα ελεγα κατι με lxde η xfce (ακομα και l/xubuntu) αν δεν σου σπασουν τα νευρα οι ελλειψεις του.
    Επισης, μεγαλο ρολο παιζει και η επιλογη των εφαρμογων που θα εγκαταστησεις για να τα κανεις πληρη, πχ να το βρασω το desktop που πιανει 50ΜΒ με το που θα ξεκκινησει, οταν για να φορτωσω τον ff η το openoffice θα χασω 100ΜΒ ακομα χωρις να κανω τιποτα απολυτως.

    χωρος υπαρχει. απλα δεν εχει πολυ μνημη και επεξεργαστικη ισχυης.]
    Pentium IV στα 1,4 αν θυμαμαι καλα.
    περα απο τις ετοιμες διανομες
    Salix και Antix υπαρχει κατι αλλο.
    Να δοκιμασω το puppy;
  40. Μηνύματα
    11
    Εμφανίσεις
    1.454

    Απάντηση: Lightweight, γρήγορο, σταθερό, noob friendly

    slackware και mepis τα ειχα ξεχασει αυτα και τα ειχα διαγραψει γιατι πιστευα οτι δεν ηταν τοσο ευκολα στη χρηση απο noobs (slackware και MEPIS δεν ηταν οτι ποιο ευχρηστο, κυριως στο στησιμο). Μαλλον με βλεπω για κατι ποιο windows like desktop enviroment μιας και οι χρηστες ειναι ελαφρως ασχετοι και δεσμιοι.
    πχ ειδα το ratpoison και δεν ειναι με καμια δυναμη για αυτους...ακους εκει χωρις ποντικι.

    απο τα ICEWM, FVWM, Fluxbox, blackbox και XFCE ποια ειναι τα ποιο windows users friendly;
  41. Μηνύματα
    11
    Εμφανίσεις
    1.454

    Lightweight, γρήγορο, σταθερό, noob friendly

    Χρονια πολλα σε ολους,
    και ακομα περισσοτερα σε οσους πιστευουν οτι με την νεα χρονια δε γινεται reset στις ζωες μας οπως στους υπολογιστες.

    Εχω κανα 2 υπολογιστες αρκετα παλιους, ο ενας ειναι με RDRAM.

    πλεον, ποια ειναι η διανομη οπου να εχει ολα τα χαρακτηριστικα του τιτλου. Δε με ενδιαφερουν καθολου τα εφε, μονο interface να ειναι noob friendly, και να ειναι γρηγορο. Να δουλευει με 512 η 256 MB μνημης.
  42. Μηνύματα
    19
    Εμφανίσεις
    2.815

    Απάντηση: Επιλογή οικονομικού Smartphone

    αν ακομα ισχυει η προσφορα νομιζω οτι galaxy S i9000 με 200 ευρω απο μεδια μαρκτ. εγω το πηρα στα 250 ειμαι πολυ ευχαριστημενος.
    λιγο με την μπαταρια δε τα παω και πολυ καλα.
    Α...και αντεχει τις πτωσεις. ειμαι πολυ ατζαμης.
  43. Απάντηση: Nova: Έρχονται στις 21 Ιανουαρίου τα νέα επεισόδια της σειράς Game of Thrones

    Σιγα τα εχουμε δει ηδη και σε πολυ ανωτερη ποιοτητα :).

    δικε μου σε εχω.

    ........Auto merged post: trotos προσθεσε 2 λεπτα και 36 δευτερολεπτα αργοτερα ........

    Πολυ καλη σειρα που εχει μεταφερθει αρκετα πιστα απο τα βιβλια... Εχω δει ολη την 1η season και σχεδον εχω τελειωσει το τελευταιο βιβλιο! Αληθεια, να πω τι θα γινει παρακατω; :evil:

    Πλακα κανω φυσικα :whistle:

    παντως τα βιβλιαρακια ηθελα απο καιρο να τα παρω. Τα βρηκα στο black friday του amazon.co.uk για 14 λιρες (ολα τα μεχρις στιγμης εκδιδομενα!!!!!). Και το κορυφαιο ειναι οτι ερχεται κατεστραμμενη η θηκη τους, τους στελνω μια φωτο και μου κανουν και επιστροφη 7 λιρες...ποσο εχει στην ελλαδα ο τομος;;;;;
  44. Μηνύματα
    6
    Εμφανίσεις
    1.299

    Απάντηση: κατασκευή φακέλου στην perl ανεξαρτήτως χρήστη.

    Οποτε με το ENV ουσιαστικα καλουμε σταθερες οι οποιες διευκρινιζονται στο {}.
    Ποια η διαφορα μεταξυ του $ % ειναι οτι το ενα οριζει array και το αλλο hash;

    το script το ετρεξα και ελαβα τα εξης:
    HOME => /Users/sunta3iouxos
    DISPLAY => /tmp/launch-3oDfNZ/org.macosforge.xquartz:0
    COMMAND_MODE => unix2003
    ORG_CHROMIUM_CHROMIUM_FRAMEWORK_SERVICE_PROCESS/USERS/SUNTA3IOUXOS/LIBRARY/APPLICATION_SUPPORT/CHROMIUM_SOCKET => /tmp/launch-mBhUt9/ServiceProcessSocket
    SSH_AUTH_SOCK => /tmp/launch-b1i1Fv/Listeners
    Apple_PubSub_Socket_Render => /tmp/launch-5wj9hs/Render
    PWD => /Users/sunta3iouxos
    LANG => el_GR.UTF-8
    USER => sunta3iouxos
    LOGNAME => sunta3iouxos
    __CF_USER_TEXT_ENCODING => 0x1F5:6:20
    SECURITYSESSIONID => 24abf2
    TERM_PROGRAM => Apple_Terminal
    SHLVL => 1
    _ => /opt/local/bin/perl
    TERM_PROGRAM_VERSION => 273.1
    PATH => /opt/local/bin:/opt/local/sbin:/opt/local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/X11/bin:/usr/X11/bin
    SHELL => /bin/bash
    TMPDIR => /var/folders/nY/nYCsY4IpGBicNgfTPKXbI++++TI/-Tmp-/
    TERM => xterm-color


    με τα κεφαλαια ειναι οι σταθερες που εισαγω στο {} για να λαβω συγκεκριμενες τιμες;

    Ποια αλλη χρησιμοτητα μπορει να εχει απο το να εισαγω πχ την διευθυνση του home φακελου σε μεταβλητη;;

    υπαρχει και αυτο, που τωρα το ειδα:
    http://en.wikipedia.org/wiki/Environment_variable
  45. Μηνύματα
    6
    Εμφανίσεις
    1.299

    Απάντηση: κατασκευή φακέλου στην perl ανεξαρτήτως χρήστη.

    Καλησπερα και καλη χρονια.

    Το %ENV ειναι ενα hash που περιεχει τις μεταβλητες περιβαλλοντος και τις τιμες τους.

    .

    ΑΥΤΟ δεν καταλαβαινω, απο που παιρνει τις μεταβλητες, πως οριζονται αυτες οι μεταβλητες πως μπορω να τις ανασυρω, τι τιμες μπορει να παρει.
    Και τι ειναι το hash, συνηθως το βλεπω ως hash tables.

    Δεν πολυ καταλαβαινω τα εγχειριδια.
  46. Μηνύματα
    6
    Εμφανίσεις
    1.299

    κατασκευή φακέλου στην perl ανεξαρτήτως χρήστη.

    Καλησπερα και χρονια πολλα.
    Εχω εδω και λιγο καιρο ξεκινησει να ασχολουμαι με προγραμματισμο και μαθαινω για τη δουλεια να γραφω scripts σε perl για να αυτοματοποιω ορισμενες διεργασιες.

    Ειμαι σε περιβαλλον Mac Os Χ αλλα χρησιμοποιω terminal και αν καποιο προγραμμα δεν υπαρχει κανω εγκατασταση.

    προσπαθω να ορισω σε μια μεταβλητη που να μπορω να τη χρησιμοποιω σε ολο το script το path του Desktop, ωστε το script να φτιαχνει φακελους, να γραφει σε αυτους αρχεια και μετα να τα ξεgz και να τα διαβαζει.

    διαβασα οτι αυτο θα επρεπε να γινεται ετσι:

    use File::Path;
    use warnings;
    use strict;
    #my $path = $ENV{'USERPROFILE'}; <--- αυτο παιζει μονο για windows based;;;
    my $path = $ENV{HOME};

    my $desktop_path = "$path/Desktop";

    my $PeakDir = "$desktop_path/BioProject";
    mkpath($PeakDir);

    και το φτιαχνει...ΤΟ ΕΡΩΤΗΜΑ ΕΙΝΑΙ:

    τι γινεται στο $ENV{HOME}; τι ακριβως κανει;
    και γιατι το $ENV{'USERPROFILE'}; δεν δουλευει ειναι γιατι παιζει μονο σε windows based;;;

    ΕΥΧΑΡΙΣΤΩ ΕΚ ΤΩΝ ΠΡΟΤΕΡΩΝ
  47. Μηνύματα
    2
    Εμφανίσεις
    680

    perl και ορισμός home folder

    Καλησπερα και χρονια πολλα.
    Εχω εδω και λιγο καιρο ξεκινησει να ασχολουμαι με προγραμματισμο και μαθαινω για τη δουλεια να γραφω scripts σε perl για να αυτοματοποιω ορισμενες διεργασιες.

    Ειμαι σε περιβαλλον Mac Os Χ αλλα χρησιμοποιω terminal και αν καποιο προγραμμα δεν υπαρχει κανω εγκατασταση.

    προσπαθω να ορισω σε μια μεταβλητη που να μπορω να τη χρησιμοποιω σε ολο το script το path του Desktop, ωστε το script να φτιαχνει φακελους, να γραφει σε αυτους αρχεια και μετα να τα ξεgz και να τα διαβαζει.

    διαβασα οτι αυτο θα επρεπε να γινεται ετσι:

    use File::Path;
    use warnings;
    use strict;
    #my $path = $ENV{'USERPROFILE'}; <--- αυτο παιζει μονο για windows based;;;
    my $path = $ENV{HOME};

    my $desktop_path = "$path/Desktop";

    my $PeakDir = "$desktop_path/BioProject";
    mkpath($PeakDir);

    και το φτιαχνει...ΤΟ ΕΡΩΤΗΜΑ ΕΙΝΑΙ:

    τι γινεται στο $ENV{HOME}; και γιατι το $ENV{'USERPROFILE'}; δεν δουλευει ειναι γιατι παιζει μονο σε windows based;;;

    ΕΥΧΑΡΙΣΤΩ ΕΚ ΤΩΝ ΠΡΟΤΕΡΩΝ
  48. Υπόμνημα: Απάντηση: Χαρίζονται παλιά περιφερειακά (όχι αιτήματα για χάρισμα ή αγορά)

    ενδιαφερομαι και εγω αν για καποιο λογο δεν το παρει ο φιλος απο πανω...

    και εγω στην ουρα...
  49. Θέμα: Mega Drive 2 Pal

    Από trotos
    Μηνύματα
    19
    Εμφανίσεις
    2.921

    Απάντηση: Mega Drive 2 Pal

    εχεις παλι πμ...
    μετα απο κατι "χρονια"
  50. Απάντηση: Ανοιχτή πρόσκληση για την εγκατάσταση Wi-Fi ανοιχτής πρόσβασης σε 7 σταθμούς του Μετρό στην Αθήνα

    Αν το κοστος ειναι μηδενικο η εστω πολυ μικρο, δε βλεπω λογο να γκρινιαζουμε για κατι που θα γινει.. ακομα κ αν για τους περισσοτερους ειναι περιττο, θα υπαρχει καποιος για τον οποιο θα ειναι χρησιμο, οποτε καλως να γινει...

    μα αυτο ειναι το προβλημα. ποτε το κοστος για τετοια εργα δεν ειναι μικρο, ειναι υπερογγο με βαση τις παγιες τιμες εξοπλισμου και εργασιας.
Εμφάνιση 1-50 από 262
Σελ. 1 από 6 1 2 3 4