bertok
Será en Octubre
Jaaaanus, muéstrate
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Para llegar a 1,7 tendrian que declarar cortos el viernes por no menos del 2,00 y eso seria mucha tela
¿quien le va a prestar otros 5 mm de acc?
llevarian tirados muchos ya
¿Es que se creen que los demas leoncios se absorben el dedo y no les ven?
Les entrarian a saco y no conseguirian bajar de 2
y en cuanto soltaran cualquier nuevo rumor o principio de acuerdo la accion rebotaria a 3 y le costarian una fortuna los cortos
Mas bien pienso que quieren mantener el valor sobre 2 y pico sin llamar demasiado la atencion y negociar ahi
Jaaaanus, muéstrate
Está muy cerquita pero aún vivo. Hasta el regazo todo es toro. Es más, lo voy a poner en 0,79 aunque signifique tener pérdidas (voy con buena carga).
El aspecto gráfico no es malo mientras no pierda los 0,80. Ahí hay buen soporte y si no lo rompió sin la refinanciación, ahora debería respetarlo ... pero como esto no va de confianza, el stop loss hará su trabajo.
Jorobar, qué frío hace por aquí.
Buenas tardes amigos....retornamos a la acción.
Bajamos?...por el bien de mis posaderas espero que si...a partir de ahora a mirar entrada corta en DAX.
#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use Spreadsheet::WriteExcel;
# use Spreadsheet::ParseExcel::SaveParser;
# Declaring the BIG data' structure
my $shorts_ref = parsing_datafile('BATSsh20111227.txt');# Hardcoded name, blablah
# Better with a map, but in XMAS...
my $output_format = 'txt';
foreach my $company (sort keys %$shorts_ref){
given ($output_format){
when (/txt/) { out2txt($company, \@{$shorts_ref->{$company}}); }
when (/xls/) { out2xls($company, \@{$shorts_ref->{$company}}); }
}
}
###################################
# ********S #
###################################
sub parsing_datafile{
my ($filename) = @_;
# Opening datafile
open my $INPUT_FILE, "<", $filename or die "Can't open '$filename' [$!]\n";
# Declaring and Parsing;
my $shorts_ref;
<$INPUT_FILE>; # Throwing the first line
while (<$INPUT_FILE>){
chomp;
my (undef, $company, undef, $time, undef, $size, $prize, undef) = split /\|/, $_;
# CSV to data
push @{$shorts_ref->{$company}}, { 'TIME' => $time, 'SIZE' => $size, 'PRIZE' => $prize };
}
# Ending
close $INPUT_FILE;
return $shorts_ref;
}
sub out2txt{
my ($company, $data_ref) = @_;
my $filename = $company. '.txt';
$filename =~ s#/#_#g;# Needed because there're weird ticket's names
open my $TEMPFILE, ">", $filename or die "Can't open '$filename' [$!]\n";
foreach my $operation (@$data_ref){
my $line = join ";", $operation->{'TIME'}, $operation->{'SIZE'}, $operation->{'PRIZE'};
print $TEMPFILE $line, "\n";
}
close $TEMPFILE;
}
sub out2xls{
my ($company, $data_ref) = @_;
my $filename = $company. '.xls';
$filename =~ s#/#_#g;# Needed because there're weird ticket's names
# Creating the XLS file and reparsing it
my $book = Spreadsheet::WriteExcel->new($filename);
my $sheet = $book->add_worksheet('Data');
# Printing the file
$sheet->write(0, 0, 'Time');# First line is only headers.
$sheet->write(0, 1, 'Size');
$sheet->write(0, 2, 'Prize');
my $row = 1;
foreach my $operation (@$data_ref){
$sheet->write($row, 0, $operation->{'TIME'});
$sheet->write($row, 1, $operation->{'SIZE'});
$sheet->write($row, 2, $operation->{'PRIZE'});
$row++;
}
# Closing XLS file
$book->close();
}
Está muy cerquita pero aún vivo. Hasta el regazo todo es toro. Es más, lo voy a poner en 0,79 aunque signifique tener pérdidas (voy con buena carga).
El aspecto gráfico no es malo mientras no pierda los 0,80. Ahí hay buen soporte y si no lo rompió sin la refinanciación, ahora debería respetarlo ... pero como esto no va de confianza, el stop loss hará su trabajo.
Jorobar, qué frío hace por aquí.
NH, la vela de hoy parece muy bajista, demasiado como para no ser cierto.
Huele a guanachin!
mira que te dije ayer que salieras por patas .....
Estos chicharrillos son para ganar una pasta y salir por echando palos. Esperar revalorizaciones grandiososas no es buen negocio.
Sr patilltoes,
Ya he compilado su programa.
:Aplauso: :Aplauso: :Aplauso: :Aplauso: :Aplauso: :Aplauso: :Aplauso:
Hasta el infinito.
No se programar en PERL, pero habrá que aprender algo 😉.
Para la hora que es no demasiado baja, soportable y the sun shine ayuda
::
:mira que te dije ayer que salieras por patas .....
Estos chicharrillos son para ganar una pasta y salir por echando palos. Esperar revalorizaciones grandiososas no es buen negocio.
Cuando pueda cruzar el Potomac a pata, entonces podrá decir que hace frío.:::
:
Hala, apañado, ahora tambien puedes sacarlo todo en XLS. Si se hace asi va bastante mas lento que tirando contra TXT (un par de minutos frente a segundos), pero es cosa del CPAN:
Código:#!/usr/bin/perl use strict; use warnings; use v5.10; use Spreadsheet::WriteExcel; # use Spreadsheet::ParseExcel::SaveParser; # Declaring the BIG data' structure my $shorts_ref = parsing_datafile('BATSsh20111227.txt');# Hardcoded name, blablah # Better with a map, but in XMAS... my $output_format = 'txt'; foreach my $company (sort keys %$shorts_ref){ given ($output_format){ when (/txt/) { out2txt($company, \@{$shorts_ref->{$company}}); } when (/xls/) { out2xls($company, \@{$shorts_ref->{$company}}); } } } ################################### # ********S # ################################### sub parsing_datafile{ my ($filename) = @_; # Opening datafile open my $INPUT_FILE, "<", $filename or die "Can't open '$filename' [$!]\n"; # Declaring and Parsing; my $shorts_ref; <$INPUT_FILE>; # Throwing the first line while (<$INPUT_FILE>){ chomp; my (undef, $company, undef, $time, undef, $size, $prize, undef) = split /\|/, $_; # CSV to data push @{$shorts_ref->{$company}}, { 'TIME' => $time, 'SIZE' => $size, 'PRIZE' => $prize }; } # Ending close $INPUT_FILE; return $shorts_ref; } sub out2txt{ my ($company, $data_ref) = @_; my $filename = $company. '.txt'; $filename =~ s#/#_#g;# Needed because there're weird ticket's names open my $TEMPFILE, ">", $filename or die "Can't open '$filename' [$!]\n"; foreach my $operation (@$data_ref){ my $line = join ";", $operation->{'TIME'}, $operation->{'SIZE'}, $operation->{'PRIZE'}; print $TEMPFILE $line, "\n"; } close $TEMPFILE; } sub out2xls{ my ($company, $data_ref) = @_; my $filename = $company. '.xls'; $filename =~ s#/#_#g;# Needed because there're weird ticket's names # Creating the XLS file and reparsing it my $book = Spreadsheet::WriteExcel->new($filename); my $sheet = $book->add_worksheet('Data'); # Printing the file $sheet->write(0, 0, 'Time');# First line is only headers. $sheet->write(0, 1, 'Size'); $sheet->write(0, 2, 'Prize'); my $row = 1; foreach my $operation (@$data_ref){ $sheet->write($row, 0, $operation->{'TIME'}); $sheet->write($row, 1, $operation->{'SIZE'}); $sheet->write($row, 2, $operation->{'PRIZE'}); $row++; } # Closing XLS file $book->close(); }
Le he enchufado una kilada buena de largos nuevamente, a complementar al resto. Stop de éstos últimos en 0,80. 1K5 de riesgo asumido en este lote.
Tenga confianza y que la serie de precios hable.😀
Le he enchufado una kilada buena de largos nuevamente, a complementar al resto. Stop de éstos últimos en 0,80. 1K5 de riesgo asumido en este lote.
Tenga confianza y que la serie de precios hable.😀